X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fstranal%2FWorkWrap.lhs;fp=ghc%2Fcompiler%2Fstranal%2FWorkWrap.lhs;h=276d8da52f580f9a444b8e00db3c4e3c7c8ee241;hb=23f40f0e9be6d4aa5cf9ea31d73f4013f8e7b4bd;hp=8b889970c95a55671a5bbcb28897eda57964624c;hpb=9b6858cb53438a2651ab00202582b13f95036058;p=ghc-hetmet.git

diff --git a/ghc/compiler/stranal/WorkWrap.lhs b/ghc/compiler/stranal/WorkWrap.lhs
index 8b88997..276d8da 100644
--- a/ghc/compiler/stranal/WorkWrap.lhs
+++ b/ghc/compiler/stranal/WorkWrap.lhs
@@ -158,10 +158,12 @@ wwExpr (Let bind expr)
     wwExpr expr			`thenUs` \ new_expr ->
     returnUs (mkLets intermediate_bind new_expr)
 
-wwExpr (Case expr binder alts)
+-- gaw 2004
+wwExpr (Case expr binder ty alts)
   = wwExpr expr				`thenUs` \ new_expr ->
     mapUs ww_alt alts			`thenUs` \ new_alts ->
-    returnUs (Case new_expr binder new_alts)
+-- gaw 2004 
+    returnUs (Case new_expr binder ty new_alts)
   where
     ww_alt (con, binders, rhs)
       =	wwExpr rhs			`thenUs` \ new_rhs ->