396cddd · reflex-vty · git.iko.soy

git.iko.soy/reflex-vty

Fix warnings

commit396cddd0ffe210ac7c98f840e1060fc02a9e4517 authorAli Abrar <aliabrar@gmail.com> dateMon 5 Nov 2018, 03:07 (8 years ago) parent168dbca

2 files changed+2−2

unifiedsplit

src-bin/example.hs+2−1

@@ -11,6 +11,7 @@

1111{-# OPTIONS_GHC -threaded #-}

1212

1313import Control.Applicative

14+import Control.Monad (void)

1415import Control.Monad.Fix

1516import Data.Map (Map)

1617import qualified Data.Map as Map

@@ -48,7 +49,7 @@ main = mainWidget $ do

4849 , Left Example_Todo <$ todo'

4950 ]

5051 escapable w = do

51− w

52+ void w

5253 i <- input

5354 return $ fforMaybe i $ \case

5455 V.EvKey V.KEsc [] -> Just $ Right ()

src/Reflex/Vty/Widget/Input.hs−1

@@ -16,7 +16,6 @@ import Control.Monad (join)

1616import Control.Monad.Fix (MonadFix)

1717import Data.Default (Default(..))

1818import Data.Text (Text)

19−import Data.Text.Zipper (Span)

2019import qualified Graphics.Vty as V

2120import Reflex

2221import Reflex.Vty.Widget