[commit: ghc] : Comment only (932905e)

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

On branch  : 

http://hackage.haskell.org/trac/ghc/changeset/932905e207c0e460530c79781c7b5e4551baddde

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

commit 932905e207c0e460530c79781c7b5e4551baddde
Author: Max Bolingbroke <[email protected]>
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'))