@@ -32,7 +32,7 @@ repl orig mods
3232 = do let prompt = mkPrompt mods
3333 x <- lift $ readline (prompt ++ "> ")
3434 case x of
35− Nothing -> repl orig mods
35+ Nothing -> return ()
3636 Just input -> do lift $ addHistory input
3737 ms <- processInput input orig mods
3838 case ms of