@@ -11,6 +11,7 @@
11{-# OPTIONS_GHC -threaded #-}
11{-# OPTIONS_GHC -threaded #-}
13import Control.Applicative
13import Control.Applicative
14+import Control.Monad (void)
14import Control.Monad.Fix
15import Control.Monad.Fix
15import Data.Map (Map)
16import Data.Map (Map)
16import qualified Data.Map as Map
17import qualified Data.Map as Map
@@ -48,7 +49,7 @@ main = mainWidget $ do
48 , Left Example_Todo <$ todo'
49 , Left Example_Todo <$ todo'
50 escapable w = do
51 escapable w = do
52 i <- input
53 i <- input
53 return $ fforMaybe i $ \case
54 return $ fforMaybe i $ \case
54 V.EvKey V.KEsc [] -> Just $ Right ()
55 V.EvKey V.KEsc [] -> Just $ Right ()