From 1bbeb90e9c6c71fb86710cee8d82466f794bce16 Mon Sep 17 00:00:00 2001 From: simonmar Date: Thu, 12 Oct 2000 15:06:22 +0000 Subject: [PATCH] [project @ 2000-10-12 15:06:22 by simonmar] RdrName->Name fix --- ghc/compiler/prelude/PrelRules.lhs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/ghc/compiler/prelude/PrelRules.lhs b/ghc/compiler/prelude/PrelRules.lhs index d13ee7f..0d1b97f 100644 --- a/ghc/compiler/prelude/PrelRules.lhs +++ b/ghc/compiler/prelude/PrelRules.lhs @@ -19,12 +19,11 @@ module PrelRules ( primOpRule, builtinRules ) where import CoreSyn import Id ( mkWildId ) import Literal ( Literal(..), isLitLitLit, mkMachInt, mkMachWord - , inIntRange, inWordRange, literalType + , literalType , word2IntLit, int2WordLit, char2IntLit, int2CharLit , float2IntLit, int2FloatLit, double2IntLit, int2DoubleLit , addr2IntLit, int2AddrLit, float2DoubleLit, double2FloatLit ) -import RdrName ( RdrName ) import PrimOp ( PrimOp(..), primOpOcc ) import TysWiredIn ( trueDataConId, falseDataConId ) import TyCon ( tyConDataConsIfAvailable, isEnumerationTyCon, isNewTyCon ) @@ -32,7 +31,8 @@ import DataCon ( dataConTag, dataConTyCon, dataConId, fIRST_TAG ) import CoreUtils ( exprIsValue, cheapEqExpr, exprIsConApp_maybe ) import Type ( splitTyConApp_maybe ) import OccName ( occNameUserString) -import PrelNames ( unpackCStringFoldr_RDR, unpackCStringFoldrIdKey, hasKey ) +import PrelNames ( unpackCStringFoldrName, unpackCStringFoldrIdKey, hasKey ) +import Name ( Name ) import Bits ( Bits(..) ) import Word ( Word64 ) import Outputable @@ -423,10 +423,10 @@ dataToTagRule other = Nothing %************************************************************************ \begin{code} -builtinRules :: [(RdrName, CoreRule)] +builtinRules :: [(Name, CoreRule)] -- Rules for non-primops that can't be expressed using a RULE pragma builtinRules - = [ (unpackCStringFoldr_RDR, BuiltinRule match_append_lit_str) + = [ (unpackCStringFoldrName, BuiltinRule match_append_lit_str) ] -- 1.7.10.4