fix: main does not stop at syntax error

Arthur-Aillet · Oct 11, 2023 · 5ff6ee0 · 5ff6ee0
1 parent 37e8ff9
commit 5ff6ee0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/app/Main.hs b/app/Main.hs
@@ -69,7 +69,7 @@ getInstructions :: Context -> IO ()
 getInstructions (context, depth) = do
   new_line <- runInputT (newSettings (context, depth)) haskelineGetline
   case runParser (parseManyValidOrEmpty parseSExpr) new_line defaultPosition of
-    Left err -> liftIO (printErr err) >> liftIO (exitWith (ExitFailure 84))
+    Left err -> liftIO (printErr err) >> getInstructions (context, depth)
 
     Right (sexpr, _, _) -> do
       new_context <- liftIO (loopOnCommands (context, depth) sexpr)