From: Pepe Iborra <mnislaih@gmail.com>
Date: Tue, 9 Jan 2007 07:42:58 +0000 (+0000)
Subject: Unbreak usage of ASSERTM
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0dffb42cd1127db58a234da6232b8e4c65448fdd;p=ghc-hetmet.git

Unbreak usage of ASSERTM
---

diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs
index d18a75c..daf1185 100644
--- a/compiler/ghci/InteractiveUI.hs
+++ b/compiler/ghci/InteractiveUI.hs
@@ -1384,11 +1384,13 @@ handler :: Exception -> GHCi Bool
 handler (DynException dyn) 
   | Just StopChildSession <- fromDynamic dyn 
      -- propagate to the parent session
-  = ASSERTM (liftM not isTopLevel) >> throwDyn StopChildSession
+  = do ASSERTM (liftM not isTopLevel) 
+       throwDyn StopChildSession
 
   | Just (ChildSessionStopped msg) <- fromDynamic dyn 
      -- Reload modules and display some message
-  = ASSERTM (isTopLevel) >> io(putStrLn msg) >> return False
+  = do ASSERTM (isTopLevel) 
+       io(putStrLn msg) >> return False
 
 handler exception = do
   flushInterpBuffers