From: simonpj <unknown>
Date: Mon, 20 Aug 2001 07:48:36 +0000 (+0000)
Subject: [project @ 2001-08-20 07:48:36 by simonpj]
X-Git-Tag: Approximately_9120_patches~1186
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ba464c6aca38222c7a800d594321ccfce7426a49;p=ghc-hetmet.git

[project @ 2001-08-20 07:48:36 by simonpj]
Trim import lists
---

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}