From f61d1bfa8a36e2f50fcfa7efc7612317d79da2a1 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sat, 7 May 2016 22:45:25 +0200
Subject: Parse line input to argument list

---
 src/Main.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Main.hs')

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
-- 
cgit v1.2.3