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

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

diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index 674257f..945dcf5 100644 (file)
--- a/ghc/compiler/rename/RnSource.lhs
+++ b/ghc/compiler/rename/RnSource.lhs
@@ -869,7 +869,7 @@ rnNote (UfCoerce ty)
 rnNote (UfSCC cc)   = returnM (UfSCC cc)
 rnNote UfInlineCall = returnM UfInlineCall
 rnNote UfInlineMe   = returnM UfInlineMe
-
+rnNote (UfCoreNote s) = returnM (UfCoreNote s)
 
 rnUfCon UfDefault
   = returnM UfDefault