[commit: ghc] : Remove near-useless trace (9156564)
Max Bolingbroke <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : http://hackage.haskell.org/trac/ghc/changeset/91565646d29186ff08fc337dff4b26cb48d9308b >--------------------------------------------------------------- commit 91565646d29186ff08fc337dff4b26cb48d9308b Author: Max Bolingbroke <[email protected]> Date: Wed Apr 18 23:05:03 2012 +0100 Remove near-useless trace >--------------------------------------------------------------- .../supercompile/Supercompile/Drive/Process3.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/supercompile/Supercompile/Drive/Process3.hs b/compiler/supercompile/Supercompile/Drive/Process3.hs index 2b7c5ae..3f5f838 100644 --- a/compiler/supercompile/Supercompile/Drive/Process3.hs +++ b/compiler/supercompile/Supercompile/Drive/Process3.hs @@ -258,7 +258,7 @@ sc' mb_h state = {-# SCC "sc'" #-} case mb_h of my_split state sc Just h -> flip catchM try_generalise $ \rb -> terminateM h state rb - (speculateM (reduce state) $ \state -> (if mb_h == Just "h44" then pprTrace "sc'" (pPrintFullState quietStatePrettiness state) else id) $ my_split state sc) + (speculateM (reduce state) $ \state -> my_split state sc) (\shallow_h shallow_state shallow_rb -> trce shallow_h shallow_state $ case msg shallow_state state of -- FIXME: better? In particular, could rollback and then MSG