[commit: ghc] : Dump debugging code (961326e)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : 

http://hackage.haskell.org/trac/ghc/changeset/961326e48ebd0c306ac50414e2e1a605dd07027a

>---------------------------------------------------------------

commit 961326e48ebd0c306ac50414e2e1a605dd07027a
Author: Max Bolingbroke <[email protected]>
Date:   Wed Jun 22 22:28:55 2011 +0100

    Dump debugging code

>---------------------------------------------------------------

 .../supercompile/Supercompile/Drive/Process.hs     |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/compiler/supercompile/Supercompile/Drive/Process.hs b/compiler/supercompile/Supercompile/Drive/Process.hs
index 523a676..6793b3c 100644
--- a/compiler/supercompile/Supercompile/Drive/Process.hs
+++ b/compiler/supercompile/Supercompile/Drive/Process.hs
@@ -468,7 +468,7 @@ instance Monad ScpM where
     (!mx) >>= fxmy = ScpM $ \e s k -> unScpM mx e s (\x s -> unScpM (fxmy x) e s k)
 
 runScpM :: ScpM (Out FVedTerm) -> (SCStats, Out FVedTerm)
-runScpM me = unScpM me init_e init_s (\e' s -> (stats s, letRecSmart (fulfilmentsToBinds $ fst $ partitionFulfilments fulfilmentReferredTo unionVarSets (pprTrace "runScpM0" (ppr (fvedTermFreeVars e') <+> ppr e') $ fvedTermFreeVars e') (pprTrace "runScpM1" (ppr (map (fun . fst) (fulfilments s))) $ fulfilments s)) e'))
+runScpM me = unScpM me init_e init_s (\e' s -> (stats s, letRecSmart (fulfilmentsToBinds $ fst $ partitionFulfilments fulfilmentReferredTo unionVarSets (fvedTermFreeVars e') (fulfilments s)) e'))
   where
     init_e = ScpEnv { promises = [], fulfilmentStack = [], depth = 0 }
     init_s = ScpState { names = h_names, fulfilments = [], stats = mempty }