X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreUnfold.lhs;h=b695c988c8874cdbcdd78483a7d77398a4701997;hb=f3114b4ac0b4316bf7acb9469c400b3d1c483c6c;hp=14413f4de66b2ddecd07174f19d3f547dc73cd97;hpb=49c98d143c382a1341e1046f5ca00819a25691ba;p=ghc-hetmet.git

diff --git a/compiler/coreSyn/CoreUnfold.lhs b/compiler/coreSyn/CoreUnfold.lhs
index 14413f4..b695c98 100644
--- a/compiler/coreSyn/CoreUnfold.lhs
+++ b/compiler/coreSyn/CoreUnfold.lhs
@@ -268,7 +268,6 @@ sizeExpr bOMB_OUT_SIZE top_args expr
 			-- The 1+ is a little discount for reduced allocation in the caller
 	  alts_size tot_size _ = tot_size
 
--- gaw 2004
     size_up (Case e _ _ alts) = nukeScrutDiscount (size_up e) `addSize` 
 			         foldr (addSize . size_up_alt) sizeZero alts
 	  	-- We don't charge for the case itself