Massive patch for the first months work adding System FC to GHC #33

[ghc-hetmet.git] / compiler / stranal / WorkWrap.lhs

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