[commit: ghc] master: fix warning (4ea89bd)

[Simon Marlow]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/4ea89bd48653951748f70b7ba0302877244f9353

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

commit 4ea89bd48653951748f70b7ba0302877244f9353
Author: Simon Marlow <marlowsd at gmail.com>
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