From 42ec5aea1e5fdeb447817a2993e77f4955060d95 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sat, 7 May 2016 21:46:32 +0200
Subject: =?UTF-8?q?We=E2=80=99re=20to=20strict=20for=20error?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src/Main.hs')

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