[project @ 1998-02-03 17:13:54 by simonm]

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

diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index 4a64569..cb5abf3 100644 (file)
--- a/ghc/compiler/rename/RnSource.lhs
+++ b/ghc/compiler/rename/RnSource.lhs
@@ -25,23 +25,17 @@ import RnEnv                ( bindTyVarsRn, lookupBndrRn, lookupOccRn, lookupImplicitOccRn, bi
                          listType_RDR, tupleType_RDR )
 import RnMonad
 
-import Name            ( Name, isLocallyDefined, 
-                         OccName(..), occNameString, prefixOccName,
-                         ExportFlag(..),
-                         Provenance(..), getNameProvenance,
-                         NameSet, unionNameSets, emptyNameSet, mkNameSet, unitNameSet,
-                         elemNameSet, nameSetToList
+import Name            ( Name, OccName(..), occNameString, prefixOccName,
+                         ExportFlag(..), Provenance(..), NameSet,
+                         elemNameSet
                        )
-import FiniteMap       ( emptyFM, lookupFM, addListToFM_C )
+import FiniteMap       ( lookupFM )
 import Id              ( GenId{-instance NamedThing-} )
-import IdInfo          ( IdInfo, StrictnessInfo(..), FBTypeInfo, DemandInfo, ArgUsageInfo )
+import IdInfo          ( FBTypeInfo, ArgUsageInfo )
 import Lex             ( isLexCon )
-import CoreUnfold      ( Unfolding(..), SimpleUnfolding )
-import MagicUFs                ( MagicUnfoldingFun )
 import PrelInfo                ( derivingOccurrences, evalClass_RDR, numClass_RDR, allClass_NAME )
-import ListSetOps      ( unionLists, minusList )
-import Maybes          ( maybeToBool, catMaybes )
-import Bag             ( emptyBag, unitBag, consBag, unionManyBags, unionBags, listToBag, bagToList )
+import Maybes          ( maybeToBool )
+import Bag             ( bagToList )
 import Outputable
 import SrcLoc          ( SrcLoc )
 import Unique          ( Unique )