Commit 0ebfc8bd authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix catching exit exceptions in ghc -e

parent 1fe5459f
......@@ -608,7 +608,7 @@ runCommands' eh getCmd = do
Nothing -> return ()
Just c -> do
b <- ghciHandle eh (doCommand c)
if b then return () else runCommands getCmd
if b then return () else runCommands' eh getCmd
noSpace q = q >>= maybe (return Nothing)
(\c->case removeSpaces c of
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment