Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch :
http://hackage.haskell.org/trac/ghc/changeset/932905e207c0e460530c79781c7b5e4551baddde >--------------------------------------------------------------- commit 932905e207c0e460530c79781c7b5e4551baddde Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Wed Jan 18 16:28:55 2012 +0000 Comment only >--------------------------------------------------------------- .../supercompile/Supercompile/Drive/Process3.hs | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/compiler/supercompile/Supercompile/Drive/Process3.hs b/compiler/supercompile/Supercompile/Drive/Process3.hs index 3c23f1f..b7397ed 100644 --- a/compiler/supercompile/Supercompile/Drive/Process3.hs +++ b/compiler/supercompile/Supercompile/Drive/Process3.hs @@ -191,6 +191,7 @@ sc' mb_h state = case mb_h of (case unMatch (match' (snd (reduceForMatch shallow_state)) (snd (reduceForMatch state))) of Left why -> text why)) trce1 state = pPrintFullState quietStatePrettiness state $$ pPrintFullState quietStatePrettiness (snd (reduceForMatch state)) + -- NB: we could try to generalise against all embedded things in the history, not just one. This might make a difference in rare cases. my_generalise gen = liftM (\splt -> liftM ((,) True) . insert_tags . splt) . generalise gen my_split opt = liftM ((,) False) . insert_tags . split opt --insert_tags = liftM (\(_, deeds, e') -> (deeds, e')) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
