Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : supercompiler
http://hackage.haskell.org/trac/ghc/changeset/dd15e9107d397525a587cbac5f3fd79e71942aad >--------------------------------------------------------------- commit dd15e9107d397525a587cbac5f3fd79e71942aad Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Wed Jan 4 14:23:02 2012 +0000 Comment about indirections only >--------------------------------------------------------------- compiler/supercompile/Supercompile/Drive/Split.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/supercompile/Supercompile/Drive/Split.hs b/compiler/supercompile/Supercompile/Drive/Split.hs index c382aaa..8118485 100644 --- a/compiler/supercompile/Supercompile/Drive/Split.hs +++ b/compiler/supercompile/Supercompile/Drive/Split.hs @@ -1132,7 +1132,7 @@ splitStackFrame ctxt_ids ids kf scruts bracketed_hole (_, univ_tys') <- splitTyConApp_maybe ty' Just (annedValue (dataConTag dc) (Data dc (univ_tys' ++ map (lookupTyVarSubst rn) as) (map (lookupCoVarSubst rn) qs) (map (renameId rn) xs))) altConToValue _ (_, LiteralAlt l) = Just (annedValue (literalTag l) (Literal l)) - altConToValue _ (_, DefaultAlt) = Nothing + altConToValue _ (_, DefaultAlt) = Nothing -- NB: could actually put an indirection in the heap in this case, for fun.. zapAltConIdOccInfo :: AltCon -> AltCon zapAltConIdOccInfo (DataAlt dc as qs xs) = DataAlt dc as qs (map zapIdOccInfo xs) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
