summaryrefslogtreecommitdiff
path: root/ghc/compiler/rename/RnExpr.lhs
diff options
context:
space:
mode:
authorsimonmar <unknown>2003-09-16 13:03:49 +0000
committersimonmar <unknown>2003-09-16 13:03:49 +0000
commit2129fa6fc4afd7f7b0c767f8c0c14b9ab5508ec2 (patch)
treec4d6d2888c582f17f46dedc88678bb7ec0f1e364 /ghc/compiler/rename/RnExpr.lhs
parentce42f19f8c840fbe89844471a0d850d310a94556 (diff)
downloadhaskell-2129fa6fc4afd7f7b0c767f8c0c14b9ab5508ec2.tar.gz
[project @ 2003-09-16 13:03:37 by simonmar]
Legacy Removal ~~~~~~~~~~~~~~ The following features have been consigned to the bit bucket: _ccall_ _casm_ ``....'' (lit-lits) the CCallable class the CReturnable class
Diffstat (limited to 'ghc/compiler/rename/RnExpr.lhs')
-rw-r--r--ghc/compiler/rename/RnExpr.lhs9
1 files changed, 0 insertions, 9 deletions
diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index 23e41c0e9f..2b1f285ec4 100644
--- 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)