X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fstranal%2FWorkWrap.lhs;h=2f5d38c0691aac0ed2f5c72e0a690eb8537532f1;hb=1bf363052778fc39335ea3701a3229572358c51e;hp=101069962d9afaab187a76521d4ae516c0aa7d9b;hpb=c55bcbdea7b8122956853c90f680a59808889b95;p=ghc-hetmet.git

diff --git a/compiler/stranal/WorkWrap.lhs b/compiler/stranal/WorkWrap.lhs
index 1010699..2f5d38c 100644
--- a/compiler/stranal/WorkWrap.lhs
+++ b/compiler/stranal/WorkWrap.lhs
@@ -26,7 +26,7 @@ import NewDemand        ( Demand(..), StrictSig(..), DmdType(..), DmdResult(..),
 			)
 import UniqSupply	( UniqSupply, initUs_, returnUs, thenUs, mapUs, getUniqueUs, UniqSM )
 import Unique		( hasKey )
-import BasicTypes	( RecFlag(..), isNonRec, Activation(..) )
+import BasicTypes	( RecFlag(..), isNonRec )
 import VarEnv		( isEmptyVarEnv )
 import Maybes		( orElse )
 import DynFlags
@@ -153,6 +153,10 @@ wwExpr (Note note expr)
   = wwExpr expr			`thenUs` \ new_expr ->
     returnUs (Note note new_expr)
 
+wwExpr (Cast expr co)
+  = wwExpr expr			`thenUs` \ new_expr ->
+    returnUs (Cast new_expr co)
+
 wwExpr (Let bind expr)
   = wwBind bind			`thenUs` \ intermediate_bind ->
     wwExpr expr			`thenUs` \ new_expr ->