X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fstranal%2FWorkWrap.lhs;h=2f5d38c0691aac0ed2f5c72e0a690eb8537532f1;hp=29702cf9f3289c3a972c7d68d55f782a8a7d0b59;hb=f3c4792fad3bf46e5ee500a909287718324c45d1;hpb=dceb1790d14292280b5d13c2f08cf936ddaaedc7

diff --git a/compiler/stranal/WorkWrap.lhs b/compiler/stranal/WorkWrap.lhs
index 29702cf..2f5d38c 100644
--- a/compiler/stranal/WorkWrap.lhs
+++ b/compiler/stranal/WorkWrap.lhs
@@ -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 ->