Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : supercompiler
http://hackage.haskell.org/trac/ghc/changeset/8be1741bddf30d42c3b8c303dc9d738a87645474 >--------------------------------------------------------------- commit 8be1741bddf30d42c3b8c303dc9d738a87645474 Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Wed Apr 18 18:49:06 2012 +0100 Comment only >--------------------------------------------------------------- .../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 636caf6..2b7c5ae 100644 --- a/compiler/supercompile/Supercompile/Drive/Process3.hs +++ b/compiler/supercompile/Supercompile/Drive/Process3.hs @@ -261,7 +261,7 @@ sc' mb_h state = {-# SCC "sc'" #-} case mb_h of (speculateM (reduce state) $ \state -> (if mb_h == Just "h44" then pprTrace "sc'" (pPrintFullState quietStatePrettiness state) else id) $ my_split state sc) (\shallow_h shallow_state shallow_rb -> trce shallow_h shallow_state $ case msg shallow_state state of - -- FIXME: better? + -- FIXME: better? In particular, could rollback and then MSG Just (_, (heap@(Heap _ ids), k, qa), (deeds_r, heap_r, rn_r, k_r)) -> pprTrace "MSG success" (pPrintFullState quietStatePrettiness (deeds, heap, k, qa) $$ pPrintFullState quietStatePrettiness (deeds_r', heap_r, k_r, fmap Question (annedVar (mkTag 0) nullAddrId))) $ _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
