From 92f0d3041cd9bb587e2b894b76a42704a6c895ad Mon Sep 17 00:00:00 2001 From: defanor Date: Thu, 28 Dec 2017 03:10:32 +0300 Subject: Lint Pancake.hs --- Pancake.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Pancake.hs b/Pancake.hs index 74df237..f8b9d19 100644 --- a/Pancake.hs +++ b/Pancake.hs @@ -21,7 +21,7 @@ Maintainer : defanor Stability : unstable Portability : non-portable (uses GHC extensions) -A CLI\/Emacs web\/gopher\/file browser inspired by LMB. +A CLI\/Emacs web\/gopher\/file browser. -} @@ -371,9 +371,9 @@ command Redisplay = do -- | Reads commands, runs them with 'command'. -eventLoop :: forall m. HL.MonadException m => HL.InputT (StateT LoopState m) () +eventLoop :: HL.MonadException m => HL.InputT (StateT LoopState m) () eventLoop = do - st <- lift $ get + st <- lift get c <- HL.handleInterrupt (pure Interrupt) $ maybe Quit (parseCommand (conf st)) <$> HL.withInterrupt (HL.getInputLine "") @@ -386,7 +386,7 @@ eventLoop = do historyURIs :: Pancake [String] historyURIs = do hist <- history <$> get - pure $ map ((\u -> uriToString id u "") . hURI) $ fst hist ++ snd hist + pure $ map ((\u -> uriToString id u "") . hURI) $ uncurry (++) hist -- | An input completion function. complete :: HL.MonadException m => HL.CompletionFunc (StateT LoopState m) -- cgit v1.2.3