From: Ian Lynagh <igloo@earth.li>
Date: Sun, 20 Jan 2008 17:02:36 +0000 (+0000)
Subject: Fix catching exit exceptions in ghc -e
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0ebfc8bdb372157c9f238a387b0dadca3bbc667a;p=ghc-hetmet.git

Fix catching exit exceptions in ghc -e
---

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