[project @ 2003-09-16 13:03:37 by simonmar]

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

diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index 23e41c0..2b1f285 100644 (file)
--- a/ghc/compiler/rename/RnExpr.lhs
+++ b/ghc/compiler/rename/RnExpr.lhs
@@ -36,7 +36,6 @@ import BasicTypes     ( Fixity(..), FixityDirection(..), IPName(..),
                          defaultFixity, negateFixity, compareFixity )
 import PrelNames       ( hasKey, assertIdKey, 
                          foldrName, buildName, 
-                         cCallableClassName, cReturnableClassName, 
                          enumClassName, 
                          loopAName, choiceAName, appAName, arrAName, composeAName, firstAName,
                          splitName, fstName, sndName, ioDataConName, 
@@ -261,14 +260,6 @@ rnExpr section@(SectionR op expr)
     checkSectionPrec InfixR section op' expr'  `thenM_`
     returnM (SectionR op' expr', fvs_op `plusFV` fvs_expr)
 
-rnExpr (HsCCall fun args may_gc is_casm _)
-       -- Check out the comment on RnIfaces.getNonWiredDataDecl about ccalls
-  = rnExprs args                               `thenM` \ (args', fvs_args) ->
-    returnM (HsCCall fun args' may_gc is_casm placeHolderType, 
-             fvs_args `plusFV` mkFVs [cCallableClassName, 
-                                      cReturnableClassName, 
-                                      ioDataConName])
-
 rnExpr (HsCoreAnn ann expr)
   = rnExpr expr `thenM` \ (expr', fvs_expr) ->
     returnM (HsCoreAnn ann expr', fvs_expr)