From 0ebfc8bdb372157c9f238a387b0dadca3bbc667a Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sun, 20 Jan 2008 17:02:36 +0000 Subject: [PATCH] Fix catching exit exceptions in ghc -e --- compiler/ghci/InteractiveUI.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index fdf32dc..9bba141 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -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 where noSpace q = q >>= maybe (return Nothing) (\c->case removeSpaces c of -- 1.7.10.4