[project @ 2003-02-20 18:33:50 by simonpj]

[ghc-hetmet.git] / ghc / compiler / rename / RnExpr.lhs

diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index c4ddc27..9b02b79 100644 (file)
--- a/ghc/compiler/rename/RnExpr.lhs
+++ b/ghc/compiler/rename/RnExpr.lhs
@@ -265,6 +265,10 @@ rnExpr (HsCCall fun args may_gc is_casm _)
                                       cReturnableClassName, 
                                       ioDataConName])
 
+rnExpr (HsCoreAnn ann expr)
+  = rnExpr expr `thenM` \ (expr', fvs_expr) ->
+    returnM (HsCoreAnn ann expr', fvs_expr)
+
 rnExpr (HsSCC lbl expr)
   = rnExpr expr                `thenM` \ (expr', fvs_expr) ->
     returnM (HsSCC lbl expr', fvs_expr)