1 files changed, 3 insertions, 1 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 0088b7c..c3c1d7e 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -38,7 +38,8 @@ runCli = do
   case input of
     Nothing -> liftIO exitSuccess
     Just input' -> do
-      case parseCmd input' of
+      cmd <- parseCmd input'
+      case cmd of
         UnknownCommand help -> do
           lift . outputStrLn $ help
         ParseError err     -> do
@@ -46,5 +47,6 @@ runCli = do
         Empty              -> return ()
 
         Quit           -> liftIO exitSuccess
+
         _              -> undefined
   runCli