[project @ 2001-05-22 13:43:14 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 65fbfd5..781e67c 100644 (file)
--- a/ghc/compiler/rename/RnSource.lhs
+++ b/ghc/compiler/rename/RnSource.lhs
@@ -715,9 +715,9 @@ rnCoreExpr (UfLitLit l ty)
   = rnHsType (text "litlit") ty        `thenRn` \ ty' ->
     returnRn (UfLitLit l ty')
 
-rnCoreExpr (UfCCall cc ty)
+rnCoreExpr (UfFCall cc ty)
   = rnHsType (text "ccall") ty `thenRn` \ ty' ->
-    returnRn (UfCCall cc ty')
+    returnRn (UfFCall cc ty')
 
 rnCoreExpr (UfTuple (HsTupCon _ boxity arity) args) 
   = mapRn rnCoreExpr args              `thenRn` \ args' ->