summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Main.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 834cefd..c4c09bc 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -35,7 +35,7 @@ main = do
35runCli :: (MonadIO m, MonadException m) => SequenceT m () 35runCli :: (MonadIO m, MonadException m) => SequenceT m ()
36runCli = do 36runCli = do
37 input <- lift $ getInputLine "→ " 37 input <- lift $ getInputLine "→ "
38 cmnd <- maybe (return undefined) parseCmd input 38 cmnd <- maybe (return $ ParseError "Trying to parse EOF") parseCmd input
39 case input of 39 case input of
40 Nothing -> liftIO exitSuccess 40 Nothing -> liftIO exitSuccess
41 Just _ -> do 41 Just _ -> do