[project @ 1996-04-30 17:34:02 by partain]

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

diff --git a/ghc/compiler/stranal/WorkWrap.lhs b/ghc/compiler/stranal/WorkWrap.lhs
index 4a7b076..d9ef03a 100644 (file)
--- a/ghc/compiler/stranal/WorkWrap.lhs
+++ b/ghc/compiler/stranal/WorkWrap.lhs
@@ -114,6 +114,10 @@ wwExpr (SCC cc expr)
   = wwExpr expr                        `thenUs` \ new_expr ->
     returnUs (SCC cc new_expr)
 
+wwExpr (Coerce c ty expr)
+  = wwExpr expr                        `thenUs` \ new_expr ->
+    returnUs (Coerce c ty new_expr)
+
 wwExpr (Let bind expr)
   = wwBind False{-not top-level-} bind `thenUs` \ intermediate_bind ->
     wwExpr expr                                `thenUs` \ new_expr ->