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
 runCli :: (MonadIO m, MonadException m) => SequenceT m () 
 runCli = do
  input <- lift $ getInputLine "→ " 
-  cmnd <- maybe (return undefined) parseCmd input
+  cmnd <- maybe (return $ ParseError "Trying to parse EOF") parseCmd input
  case input of
    Nothing -> liftIO exitSuccess
    Just _ -> do

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
35	runCli :: (MonadIO m, MonadException m) => SequenceT m ()	35	runCli :: (MonadIO m, MonadException m) => SequenceT m ()
36	runCli = do	36	runCli = 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