fix reprLoop after interpreter operation error
commit383f6ef9edbfde7ee6795b5b4e7340652b59927a
authorAgentM <agentm@themactionfaction.com>
dateWed 28 Jan 2015, 20:12 (12 years ago)
parentad30da8
TutorialDInterpreter.hs+1−1
@@ -337,7 +337,7 @@ reprLoop context = do
337337 Just line -> do
338338 case interpretOps context line of
339339 QuitResult -> return ()
340− DisplayErrorResult err -> hPutStrLn stderr ("ERR: " ++ err)
340+ DisplayErrorResult err -> hPutStrLn stderr ("ERR: " ++ err) >> reprLoop context
341341 DisplayResult out -> do
342342 putStrLn out
343343 reprLoop context