Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/4ea89bd48653951748f70b7ba0302877244f9353 >--------------------------------------------------------------- commit 4ea89bd48653951748f70b7ba0302877244f9353 Author: Simon Marlow <[email protected]> Date: Tue May 24 13:44:15 2011 +0100 fix warning >--------------------------------------------------------------- compiler/coreSyn/CoreUnfold.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/coreSyn/CoreUnfold.lhs b/compiler/coreSyn/CoreUnfold.lhs index 6a73716..782264f 100644 --- a/compiler/coreSyn/CoreUnfold.lhs +++ b/compiler/coreSyn/CoreUnfold.lhs @@ -400,7 +400,7 @@ sizeExpr bOMB_OUT_SIZE top_args expr alts_size tot_size _ = tot_size - size_up (Case e b _ alts) = size_up e `addSizeNSD` + size_up (Case e _ _ alts) = size_up e `addSizeNSD` foldr (addAltSize . size_up_alt) case_size alts where case_size _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
