1 files changed, 1 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs
index c4c09bc..e6a3024 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -44,6 +44,7 @@ runCli = do
          lift . outputStrLn $ "Unknown command: »" <> cmd <> "«"
        ParseError err     -> do
          lift . outputStrLn $ "Error parsing input »" <> (fromMaybe "" input) <> "«: " <> err
+        Empty              -> return ()
        Quit           -> liftIO exitSuccess
        PerformAlt alt -> apply' alt

diff --git a/src/Main.hs b/src/Main.hs index c4c09bc..e6a3024 100644 --- a/src/Main.hs +++ b/src/Main.hs
@@ -44,6 +44,7 @@ runCli = do
44	lift . outputStrLn $ "Unknown command: »" <> cmd <> "«"	44	lift . outputStrLn $ "Unknown command: »" <> cmd <> "«"
45	ParseError err -> do	45	ParseError err -> do
46	lift . outputStrLn $ "Error parsing input »" <> (fromMaybe "" input) <> "«: " <> err	46	lift . outputStrLn $ "Error parsing input »" <> (fromMaybe "" input) <> "«: " <> err
		47	Empty -> return ()
47		48
48	Quit -> liftIO exitSuccess	49	Quit -> liftIO exitSuccess
49	PerformAlt alt -> apply' alt	50	PerformAlt alt -> apply' alt