yi-core 0.19.1 → 0.19.2

raw patch · 2 files changed

+5/−4 lines, 2 filesdep ~base

Dependency ranges changed: base

Files

• src/Yi/Keymap/Keys.hs +4/−3
• yi-core.cabal +1/−1

@@ -26,6 +26,7 @@ import Prelude       hiding (error)  import Control.Monad (unless)+import qualified Control.Monad.Fail as Fail import Data.Char     (isAlpha, isPrint, toUpper) import Data.List     (nub, sort) import Yi.Debug      (error)@@ -33,7 +34,7 @@ import Yi.Interact   hiding (write) import Yi.Keymap     (Action, KeymapM, YiAction, write) -printableChar :: (MonadFail m, MonadInteract m w Event) => m Char+printableChar :: (Fail.MonadFail m, MonadInteract m w Event) => m Char printableChar = do   Event (KASCII c) [] <- anyEvent   unless (isPrint c) $@@ -50,7 +51,7 @@ pString :: (MonadInteract m w Event) => String -> m [Event] pString = events . map char -charOf :: (MonadFail m, MonadInteract m w Event) => (Event -> Event) -> Char -> Char -> m Char+charOf :: (Fail.MonadFail m, MonadInteract m w Event) => (Event -> Event) -> Char -> Char -> m Char charOf modifier l h =     do Event (KASCII c) _ <- eventBetween (modifier $ char l) (modifier $ char h)        return c@@ -84,7 +85,7 @@ hyperCh = hyper . char  -- | @optMod f ev@ produces a 'MonadInteract' that consumes @ev@ or @f ev@-optMod ::(MonadFail m, MonadInteract m w Event) => (Event -> Event) -> Event -> m Event+optMod ::(Fail.MonadFail m, MonadInteract m w Event) => (Event -> Event) -> Event -> m Event optMod f ev = oneOf [ev, f ev]  -- | Convert a special key into an event

@@ -1,5 +1,5 @@ name:           yi-core-version:        0.19.1+version:        0.19.2 synopsis:       Yi editor core library category:       Yi homepage:       https://github.com/yi-editor/yi#readme