From 4ea89bd48653951748f70b7ba0302877244f9353 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 24 May 2011 13:44:15 +0100 Subject: [PATCH] fix warning --- compiler/coreSyn/CoreUnfold.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4