From ba464c6aca38222c7a800d594321ccfce7426a49 Mon Sep 17 00:00:00 2001 From: simonpj Date: Mon, 20 Aug 2001 07:48:36 +0000 Subject: [PATCH] [project @ 2001-08-20 07:48:36 by simonpj] Trim import lists --- ghc/compiler/rename/RnExpr.lhs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs index 8b9e8c4..b895dcb 100644 --- a/ghc/compiler/rename/RnExpr.lhs +++ b/ghc/compiler/rename/RnExpr.lhs @@ -29,13 +29,12 @@ import RnHiFiles ( lookupFixityRn ) import CmdLineOpts ( DynFlag(..), opt_IgnoreAsserts ) import Literal ( inIntRange, inCharRange ) import BasicTypes ( Fixity(..), FixityDirection(..), defaultFixity, negateFixity ) -import PrelNames ( hasKey, assertIdKey, minusName, negateName, fromIntegerName, +import PrelNames ( hasKey, assertIdKey, eqClass_RDR, foldr_RDR, build_RDR, eqString_RDR, cCallableClass_RDR, cReturnableClass_RDR, monadClass_RDR, enumClass_RDR, ordClass_RDR, ratioDataCon_RDR, assertErr_RDR, ioDataCon_RDR, plusInteger_RDR, timesInteger_RDR, - fromInteger_RDR, fromRational_RDR, ) import TysPrim ( charPrimTyCon, addrPrimTyCon, intPrimTyCon, floatPrimTyCon, doublePrimTyCon @@ -47,8 +46,7 @@ import UniqFM ( isNullUFM ) import FiniteMap ( elemFM ) import UniqSet ( emptyUniqSet ) import List ( intersectBy ) -import ListSetOps ( unionLists, removeDups ) -import Maybes ( maybeToBool ) +import ListSetOps ( removeDups ) import Outputable \end{code} -- 1.7.10.4