@@ -32,7 +32,7 @@ repl orig mods
32 = do let prompt = mkPrompt mods
32 = do let prompt = mkPrompt mods
33 x <- lift $ readline (prompt ++ "> ")
33 x <- lift $ readline (prompt ++ "> ")
35− Nothing -> repl orig mods
35+ Nothing -> return ()
36 Just input -> do lift $ addHistory input
36 Just input -> do lift $ addHistory input
37 ms <- processInput input orig mods
37 ms <- processInput input orig mods
38 case ms of
38 case ms of