Commit ff755dd9 authored by simonmar's avatar simonmar
Browse files

[project @ 2000-07-11 16:24:57 by simonmar]

remove unused imports
parent 1b7a99e3
...@@ -24,13 +24,12 @@ import Id ( Id ) ...@@ -24,13 +24,12 @@ import Id ( Id )
import Class ( Class ) import Class ( Class )
import CoreSyn ( CoreBind ) import CoreSyn ( CoreBind )
import StgSyn ( StgBinding ) import StgSyn ( StgBinding )
import AbsCSyn ( AbstractC, absCNop ) import AbsCSyn ( AbstractC )
import PprAbsC ( dumpRealC, writeRealC ) import PprAbsC ( dumpRealC, writeRealC )
import UniqSupply ( UniqSupply ) import UniqSupply ( UniqSupply )
import Module ( Module, moduleString ) import Module ( Module )
import CmdLineOpts import CmdLineOpts
import Maybes ( maybeToBool ) import ErrUtils ( dumpIfSet )
import ErrUtils ( doIfSet, dumpIfSet )
import Outputable import Outputable
import IO ( IOMode(..), hClose, openFile, Handle ) import IO ( IOMode(..), hClose, openFile, Handle )
\end{code} \end{code}
......
...@@ -10,13 +10,12 @@ module Main ( main ) where ...@@ -10,13 +10,12 @@ module Main ( main ) where
import IO ( hPutStr, stderr ) import IO ( hPutStr, stderr )
import HsSyn import HsSyn
import BasicTypes ( NewOrData(..) )
import RdrHsSyn ( RdrNameHsModule ) import RdrHsSyn ( RdrNameHsModule )
import FastString ( mkFastCharString, unpackFS ) import FastString ( unpackFS )
import StringBuffer ( hGetStringBuffer ) import StringBuffer ( hGetStringBuffer )
import Parser ( parse ) import Parser ( parse )
import Lex ( PState(..), P, ParseResult(..) ) import Lex ( PState(..), ParseResult(..) )
import SrcLoc ( mkSrcLoc ) import SrcLoc ( mkSrcLoc )
import Rename ( renameModule ) import Rename ( renameModule )
...@@ -26,25 +25,19 @@ import TcModule ( TcResults(..), typecheckModule ) ...@@ -26,25 +25,19 @@ import TcModule ( TcResults(..), typecheckModule )
import Desugar ( deSugar ) import Desugar ( deSugar )
import SimplCore ( core2core ) import SimplCore ( core2core )
import OccurAnal ( occurAnalyseBinds ) import OccurAnal ( occurAnalyseBinds )
import CoreLint ( endPass )
import CoreUtils ( coreBindsSize ) import CoreUtils ( coreBindsSize )
import CoreTidy ( tidyCorePgm ) import CoreTidy ( tidyCorePgm )
import CoreToStg ( topCoreBindsToStg ) import CoreToStg ( topCoreBindsToStg )
import StgSyn ( collectFinalStgBinders, pprStgBindings ) import StgSyn ( collectFinalStgBinders )
import SimplStg ( stg2stg ) import SimplStg ( stg2stg )
import CodeGen ( codeGen ) import CodeGen ( codeGen )
import CodeOutput ( codeOutput ) import CodeOutput ( codeOutput )
import Module ( ModuleName, moduleNameUserString ) import Module ( ModuleName, moduleNameUserString )
import AbsCSyn ( absCNop )
import CmdLineOpts import CmdLineOpts
import ErrUtils ( ghcExit, doIfSet, dumpIfSet ) import ErrUtils ( ghcExit, doIfSet, dumpIfSet )
import Maybes ( maybeToBool, MaybeErr(..) )
import TyCon ( isDataTyCon )
import Class ( classTyCon )
import UniqSupply ( mkSplitUniqSupply ) import UniqSupply ( mkSplitUniqSupply )
import FiniteMap ( emptyFM )
import Outputable import Outputable
import Char ( isSpace ) import Char ( isSpace )
#if REPORT_TO_MOTHERLODE && __GLASGOW_HASKELL__ >= 303 #if REPORT_TO_MOTHERLODE && __GLASGOW_HASKELL__ >= 303
......
...@@ -10,16 +10,13 @@ module AsmRegAlloc ( runRegAllocate ) where ...@@ -10,16 +10,13 @@ module AsmRegAlloc ( runRegAllocate ) where
import MachCode ( InstrBlock ) import MachCode ( InstrBlock )
import MachMisc ( Instr(..) ) import MachMisc ( Instr(..) )
import PprMach ( pprUserReg, pprInstr ) -- debugging
import MachRegs import MachRegs
import RegAllocInfo import RegAllocInfo
import FiniteMap ( FiniteMap, emptyFM, addListToFM, delListFromFM, import FiniteMap ( FiniteMap, emptyFM, addListToFM, delListFromFM,
lookupFM, keysFM, eltsFM, mapFM, addToFM_C, addToFM, lookupFM, keysFM, eltsFM, mapFM, addToFM_C, addToFM,
listToFM, fmToList, lookupWithDefaultFM ) listToFM, fmToList, lookupWithDefaultFM )
import Maybes ( maybeToBool )
import Unique ( mkBuiltinUnique ) import Unique ( mkBuiltinUnique )
import Util ( mapAccumB )
import OrdList ( unitOL, appOL, fromOL, concatOL ) import OrdList ( unitOL, appOL, fromOL, concatOL )
import Outputable import Outputable
import Unique ( Unique, Uniquable(..), mkPseudoUnique3 ) import Unique ( Unique, Uniquable(..), mkPseudoUnique3 )
......
...@@ -18,7 +18,6 @@ import MachMisc -- may differ per-platform ...@@ -18,7 +18,6 @@ import MachMisc -- may differ per-platform
import MachRegs import MachRegs
import OrdList ( OrdList, nilOL, isNilOL, unitOL, appOL, toOL, import OrdList ( OrdList, nilOL, isNilOL, unitOL, appOL, toOL,
snocOL, consOL, concatOL ) snocOL, consOL, concatOL )
import AbsCSyn ( MagicId )
import AbsCUtils ( magicIdPrimRep ) import AbsCUtils ( magicIdPrimRep )
import CallConv ( CallConv ) import CallConv ( CallConv )
import CLabel ( isAsmTemp, CLabel, pprCLabel_asm, labelDynamic ) import CLabel ( isAsmTemp, CLabel, pprCLabel_asm, labelDynamic )
......
...@@ -50,12 +50,10 @@ import MachRegs ( stgReg, callerSaves, RegLoc(..), ...@@ -50,12 +50,10 @@ import MachRegs ( stgReg, callerSaves, RegLoc(..),
# endif # endif
) )
import PrimRep ( PrimRep(..) ) import PrimRep ( PrimRep(..) )
import SMRep ( SMRep(..) )
import Stix ( StixTree(..), StixReg(..), CodeSegment ) import Stix ( StixTree(..), StixReg(..), CodeSegment )
import Panic ( panic ) import Panic ( panic )
import Char ( isDigit )
import GlaExts ( word2Int#, int2Word#, shiftRL#, and#, (/=#) ) import GlaExts ( word2Int#, int2Word#, shiftRL#, and#, (/=#) )
import Outputable ( text, pprPanic, ppr ) import Outputable ( pprPanic, ppr )
import IOExts ( trace ) import IOExts ( trace )
\end{code} \end{code}
......
...@@ -18,8 +18,6 @@ import MachRegs -- may differ per-platform ...@@ -18,8 +18,6 @@ import MachRegs -- may differ per-platform
import MachMisc import MachMisc
import CLabel ( pprCLabel_asm, externallyVisibleCLabel, labelDynamic ) import CLabel ( pprCLabel_asm, externallyVisibleCLabel, labelDynamic )
import CStrings ( charToC )
import Maybes ( maybeToBool )
import Stix ( CodeSegment(..), StixTree(..) ) import Stix ( CodeSegment(..), StixTree(..) )
import Char ( isPrint, isDigit ) import Char ( isPrint, isDigit )
import Outputable import Outputable
......
...@@ -37,16 +37,11 @@ module RegAllocInfo ( ...@@ -37,16 +37,11 @@ module RegAllocInfo (
#include "HsVersions.h" #include "HsVersions.h"
import List ( partition, sort ) import List ( partition, sort )
import OrdList ( unitOL )
import MachMisc import MachMisc
import MachRegs import MachRegs
import MachCode ( InstrBlock )
import BitSet ( unitBS, mkBS, minusBS, unionBS, listBS, BitSet )
import CLabel ( pprCLabel_asm, isAsmTemp, CLabel{-instance Ord-} ) import CLabel ( pprCLabel_asm, isAsmTemp, CLabel{-instance Ord-} )
import FiniteMap ( addToFM, lookupFM, FiniteMap ) import FiniteMap ( addToFM, lookupFM, FiniteMap )
import PrimRep ( PrimRep(..) )
import UniqSet -- quite a bit of it
import Outputable import Outputable
import Constants ( rESERVED_C_STACK_BYTES ) import Constants ( rESERVED_C_STACK_BYTES )
import Unique ( Unique, Uniquable(..) ) import Unique ( Unique, Uniquable(..) )
......
...@@ -28,7 +28,6 @@ module Stix ( ...@@ -28,7 +28,6 @@ module Stix (
import Ratio ( Rational ) import Ratio ( Rational )
import AbsCSyn ( node, tagreg, MagicId(..) ) import AbsCSyn ( node, tagreg, MagicId(..) )
import AbsCUtils ( magicIdPrimRep )
import CallConv ( CallConv, pprCallConv ) import CallConv ( CallConv, pprCallConv )
import CLabel ( mkAsmTempLabel, CLabel, pprCLabel, pprCLabel_asm ) import CLabel ( mkAsmTempLabel, CLabel, pprCLabel, pprCLabel_asm )
import PrimRep ( PrimRep(..), showPrimRep ) import PrimRep ( PrimRep(..), showPrimRep )
...@@ -37,7 +36,6 @@ import Unique ( Unique ) ...@@ -37,7 +36,6 @@ import Unique ( Unique )
import SMRep ( fixedHdrSize, arrWordsHdrSize, arrPtrsHdrSize ) import SMRep ( fixedHdrSize, arrWordsHdrSize, arrPtrsHdrSize )
import UniqSupply ( UniqSupply, splitUniqSupply, uniqFromSupply, import UniqSupply ( UniqSupply, splitUniqSupply, uniqFromSupply,
UniqSM, thenUs, returnUs, getUniqueUs ) UniqSM, thenUs, returnUs, getUniqueUs )
import CmdLineOpts ( opt_Static )
import Outputable import Outputable
\end{code} \end{code}
......
...@@ -20,7 +20,6 @@ import PrimRep ( PrimRep(..) ) ...@@ -20,7 +20,6 @@ import PrimRep ( PrimRep(..) )
import SMRep ( SMRep(..), getSMRepClosureTypeInt ) import SMRep ( SMRep(..), getSMRepClosureTypeInt )
import Stix -- all of it import Stix -- all of it
import UniqSupply ( returnUs, UniqSM ) import UniqSupply ( returnUs, UniqSM )
import Outputable ( int )
import BitSet ( intBS ) import BitSet ( intBS )
import Maybes ( maybeToBool ) import Maybes ( maybeToBool )
......
...@@ -10,7 +10,6 @@ module StixMacro ( macroCode, checkCode ) where ...@@ -10,7 +10,6 @@ module StixMacro ( macroCode, checkCode ) where
import {-# SOURCE #-} StixPrim ( amodeToStix ) import {-# SOURCE #-} StixPrim ( amodeToStix )
import MachMisc
import MachRegs import MachRegs
import AbsCSyn ( CStmtMacro(..), MagicId(..), CAddrMode, tagreg, import AbsCSyn ( CStmtMacro(..), MagicId(..), CAddrMode, tagreg,
CCheckMacro(..) ) CCheckMacro(..) )
...@@ -20,7 +19,6 @@ import PrimOp ( PrimOp(..) ) ...@@ -20,7 +19,6 @@ import PrimOp ( PrimOp(..) )
import PrimRep ( PrimRep(..) ) import PrimRep ( PrimRep(..) )
import Stix import Stix
import UniqSupply ( returnUs, thenUs, UniqSM ) import UniqSupply ( returnUs, thenUs, UniqSM )
import Outputable
import CLabel ( mkBlackHoleInfoTableLabel, mkIndStaticInfoLabel, import CLabel ( mkBlackHoleInfoTableLabel, mkIndStaticInfoLabel,
mkIndInfoLabel, mkUpdInfoLabel, mkSeqInfoLabel, mkIndInfoLabel, mkUpdInfoLabel, mkSeqInfoLabel,
mkRtsGCEntryLabel, mkStgUpdatePAPLabel ) mkRtsGCEntryLabel, mkStgUpdatePAPLabel )
......
...@@ -59,7 +59,6 @@ import CmdLineOpts ( opt_NoImplicitPrelude ) ...@@ -59,7 +59,6 @@ import CmdLineOpts ( opt_NoImplicitPrelude )
import StringBuffer ( lexemeToString ) import StringBuffer ( lexemeToString )
import FastString ( unpackFS ) import FastString ( unpackFS )
import BasicTypes ( Boxity(..) ) import BasicTypes ( Boxity(..) )
import ErrUtils
import UniqFM ( UniqFM, listToUFM, lookupUFM ) import UniqFM ( UniqFM, listToUFM, lookupUFM )
import Outputable import Outputable
......
...@@ -41,13 +41,11 @@ import PrelNames -- Prelude module names ...@@ -41,13 +41,11 @@ import PrelNames -- Prelude module names
import PrimOp ( PrimOp(..), allThePrimOps, primOpRdrName ) import PrimOp ( PrimOp(..), allThePrimOps, primOpRdrName )
import DataCon ( DataCon, dataConId, dataConWrapId ) import DataCon ( DataCon, dataConId, dataConWrapId )
import PrimRep ( PrimRep(..) )
import TysPrim -- TYPES import TysPrim -- TYPES
import TysWiredIn import TysWiredIn
-- others: -- others:
import RdrName ( RdrName ) import RdrName ( RdrName )
import Var ( varUnique, Id )
import Name ( Name, OccName, Provenance(..), import Name ( Name, OccName, Provenance(..),
NameSpace, tcName, clsName, varName, dataName, NameSpace, tcName, clsName, varName, dataName,
mkKnownKeyGlobal, mkKnownKeyGlobal,
...@@ -61,7 +59,6 @@ import BasicTypes ( Boxity(..) ) ...@@ -61,7 +59,6 @@ import BasicTypes ( Boxity(..) )
import Unique -- *Key stuff import Unique -- *Key stuff
import UniqFM ( UniqFM, listToUFM ) import UniqFM ( UniqFM, listToUFM )
import Util ( isIn ) import Util ( isIn )
import Panic ( panic )
\end{code} \end{code}
%************************************************************************ %************************************************************************
......
...@@ -13,9 +13,9 @@ module PrelRules ( primOpRule, builtinRules ) where ...@@ -13,9 +13,9 @@ module PrelRules ( primOpRule, builtinRules ) where
#include "HsVersions.h" #include "HsVersions.h"
import CoreSyn import CoreSyn
import Rules ( ProtoCoreRule(..) ) import Id ( mkWildId )
import Id ( idUnfolding, mkWildId, isDataConId_maybe ) import Literal ( Literal(..), isLitLitLit, mkMachInt, mkMachWord
import Literal ( Literal(..), isLitLitLit, mkMachInt, mkMachWord, literalType , inIntRange, inWordRange, literalType
, word2IntLit, int2WordLit, char2IntLit, int2CharLit , word2IntLit, int2WordLit, char2IntLit, int2CharLit
, float2IntLit, int2FloatLit, double2IntLit, int2DoubleLit , float2IntLit, int2FloatLit, double2IntLit, int2DoubleLit
, addr2IntLit, int2AddrLit, float2DoubleLit, double2FloatLit , addr2IntLit, int2AddrLit, float2DoubleLit, double2FloatLit
...@@ -24,32 +24,18 @@ import RdrName ( RdrName ) ...@@ -24,32 +24,18 @@ import RdrName ( RdrName )
import PrimOp ( PrimOp(..), primOpOcc ) import PrimOp ( PrimOp(..), primOpOcc )
import TysWiredIn ( trueDataConId, falseDataConId ) import TysWiredIn ( trueDataConId, falseDataConId )
import TyCon ( tyConDataConsIfAvailable, isEnumerationTyCon, isNewTyCon ) import TyCon ( tyConDataConsIfAvailable, isEnumerationTyCon, isNewTyCon )
import DataCon ( DataCon, dataConTag, dataConRepArity, dataConTyCon, dataConId, fIRST_TAG ) import DataCon ( dataConTag, dataConTyCon, dataConId, fIRST_TAG )
import CoreUnfold ( maybeUnfoldingTemplate )
import CoreUtils ( exprIsValue, cheapEqExpr, exprIsConApp_maybe ) import CoreUtils ( exprIsValue, cheapEqExpr, exprIsConApp_maybe )
import Type ( splitTyConApp_maybe ) import Type ( splitTyConApp_maybe )
import OccName ( occNameUserString) import OccName ( occNameUserString)
import PrelNames ( unpackCStringFoldr_RDR ) import PrelNames ( unpackCStringFoldr_RDR )
import Unique ( unpackCStringFoldrIdKey, hasKey ) import Unique ( unpackCStringFoldrIdKey, hasKey )
import Maybes ( maybeToBool )
import Char ( ord, chr )
import Bits ( Bits(..) ) import Bits ( Bits(..) )
import PrelAddr ( wordToInt )
import Word ( Word64 ) import Word ( Word64 )
import Outputable import Outputable
#if __GLASGOW_HASKELL__ > 405
import PrelAddr ( intToWord )
#else
import PrelAddr ( Word(..) )
import PrelGHC ( int2Word# )
intToWord :: Int -> Word
intToWord (I# i#) = W# (int2Word# i#)
#endif
\end{code} \end{code}
\begin{code} \begin{code}
primOpRule :: PrimOp -> CoreRule primOpRule :: PrimOp -> CoreRule
primOpRule op primOpRule op
......
...@@ -87,17 +87,14 @@ import Var ( TyVar, tyVarKind ) ...@@ -87,17 +87,14 @@ import Var ( TyVar, tyVarKind )
import TyCon ( TyCon, AlgTyConFlavour(..), ArgVrcs, tyConDataCons, import TyCon ( TyCon, AlgTyConFlavour(..), ArgVrcs, tyConDataCons,
mkAlgTyCon, mkSynTyCon, mkTupleTyCon, isUnLiftedTyCon mkAlgTyCon, mkSynTyCon, mkTupleTyCon, isUnLiftedTyCon
) )
import BasicTypes ( Arity, NewOrData(..), RecFlag(..), Boxity(..), isBoxed ) import BasicTypes ( Arity, RecFlag(..), Boxity(..), isBoxed )
import Type ( Type, mkTyConTy, mkTyConApp, mkSigmaTy, mkTyVarTys, import Type ( Type, mkTyConTy, mkTyConApp, mkSigmaTy, mkTyVarTys,
mkArrowKinds, boxedTypeKind, unboxedTypeKind, mkArrowKinds, boxedTypeKind, unboxedTypeKind,
mkFunTy, mkFunTys, mkFunTy, mkFunTys,
splitTyConApp_maybe, repType, splitTyConApp_maybe, repType,
TauType, ClassContext ) TauType, ClassContext )
import PrimRep ( PrimRep(..) )
import Unique import Unique
import CmdLineOpts ( opt_GlasgowExts ) import CmdLineOpts ( opt_GlasgowExts )
import Util ( assoc )
import Panic ( panic )
import Array import Array
alpha_tyvar = [alphaTyVar] alpha_tyvar = [alphaTyVar]
......
...@@ -31,15 +31,11 @@ import StgSyn ...@@ -31,15 +31,11 @@ import StgSyn
import CmdLineOpts ( opt_AutoSccsOnIndividualCafs ) import CmdLineOpts ( opt_AutoSccsOnIndividualCafs )
import CostCentre -- lots of things import CostCentre -- lots of things
import Id ( Id, mkSysLocal, idType, idName ) import Id ( Id )
import Module ( Module ) import Module ( Module )
import UniqSupply ( uniqFromSupply, splitUniqSupply, UniqSupply ) import UniqSupply ( uniqFromSupply, splitUniqSupply, UniqSupply )
import Unique ( Unique ) import Unique ( Unique )
import Type ( splitForAllTys, splitTyConApp_maybe )
import TyCon ( isFunTyCon )
import VarSet import VarSet
import UniqSet
import Name ( isLocallyDefined )
import Util ( removeDups ) import Util ( removeDups )
import Outputable import Outputable
......
...@@ -23,13 +23,13 @@ import RnMonad ...@@ -23,13 +23,13 @@ import RnMonad
import RnNames ( getGlobalNames ) import RnNames ( getGlobalNames )
import RnSource ( rnSourceDecls, rnDecl ) import RnSource ( rnSourceDecls, rnDecl )
import RnIfaces ( getImportedInstDecls, importDecl, mkImportExportInfo, getInterfaceExports, import RnIfaces ( getImportedInstDecls, importDecl, mkImportExportInfo, getInterfaceExports,
getImportedRules, loadHomeInterface, getSlurped, removeContext, getImportedRules, getSlurped, removeContext,
loadBuiltinRules, getDeferredDecls, ImportDeclResult(..) loadBuiltinRules, getDeferredDecls, ImportDeclResult(..)
) )
import RnEnv ( availName, availsToNameSet, import RnEnv ( availName, availsToNameSet,
emptyAvailEnv, unitAvailEnv, availEnvElts, plusAvailEnv, emptyAvailEnv, unitAvailEnv, availEnvElts, plusAvailEnv,
warnUnusedImports, warnUnusedLocalBinds, warnUnusedModules, warnUnusedImports, warnUnusedLocalBinds, warnUnusedModules,
lookupImplicitOccsRn, pprAvail, unknownNameErr, lookupImplicitOccsRn, unknownNameErr,
FreeVars, plusFVs, plusFV, unitFV, emptyFVs, isEmptyFVs, addOneFV FreeVars, plusFVs, plusFV, unitFV, emptyFVs, isEmptyFVs, addOneFV
) )
import Module ( Module, ModuleName, WhereFrom(..), import Module ( Module, ModuleName, WhereFrom(..),
...@@ -38,7 +38,7 @@ import Module ( Module, ModuleName, WhereFrom(..), ...@@ -38,7 +38,7 @@ import Module ( Module, ModuleName, WhereFrom(..),
import Name ( Name, isLocallyDefined, NamedThing(..), getSrcLoc, import Name ( Name, isLocallyDefined, NamedThing(..), getSrcLoc,
nameOccName, nameUnique, nameModule, maybeUserImportedFrom, nameOccName, nameUnique, nameModule, maybeUserImportedFrom,
isUserImportedExplicitlyName, isUserImportedName, isUserImportedExplicitlyName, isUserImportedName,
maybeWiredInTyConName, maybeWiredInIdName, isWiredInName, maybeWiredInTyConName, maybeWiredInIdName,
isUserExportedName, toRdrName isUserExportedName, toRdrName
) )
import OccName ( occNameFlavour, isValOcc ) import OccName ( occNameFlavour, isValOcc )
......
...@@ -38,12 +38,8 @@ import Name ( OccName, Name, nameOccName, mkUnboundName, isUnboundName ) ...@@ -38,12 +38,8 @@ import Name ( OccName, Name, nameOccName, mkUnboundName, isUnboundName )
import NameSet import NameSet
import RdrName ( RdrName, rdrNameOcc ) import RdrName ( RdrName, rdrNameOcc )
import BasicTypes ( RecFlag(..), TopLevelFlag(..) ) import BasicTypes ( RecFlag(..), TopLevelFlag(..) )
import Util ( thenCmp, removeDups )
import List ( partition ) import List ( partition )
import ListSetOps ( minusList )
import Bag ( bagToList ) import Bag ( bagToList )
import FiniteMap ( lookupFM, listToFM )
import Maybe ( isJust )
import Outputable import Outputable
\end{code} \end{code}
......
...@@ -35,9 +35,7 @@ import OccName ( OccName, ...@@ -35,9 +35,7 @@ import OccName ( OccName,
import TysWiredIn ( listTyCon ) import TysWiredIn ( listTyCon )
import Type ( funTyCon ) import Type ( funTyCon )
import Module ( ModuleName, mkThisModule, moduleName, mkVanillaModule, pprModuleName ) import Module ( ModuleName, mkThisModule, moduleName, mkVanillaModule, pprModuleName )
import TyCon ( TyCon )
import FiniteMap import FiniteMap
import Unique ( Unique, Uniquable(..) )
import UniqSupply import UniqSupply
import SrcLoc ( SrcLoc, noSrcLoc ) import SrcLoc ( SrcLoc, noSrcLoc )
import Outputable import Outputable
......
...@@ -30,19 +30,13 @@ import HsSyn ( HsDecl(..), TyClDecl(..), InstDecl(..), IfaceSig(..), ...@@ -30,19 +30,13 @@ import HsSyn ( HsDecl(..), TyClDecl(..), InstDecl(..), IfaceSig(..),
) )
import HsImpExp ( ieNames ) import HsImpExp ( ieNames )
import CoreSyn ( CoreRule ) import CoreSyn ( CoreRule )
import BasicTypes ( Version, NewOrData(..), defaultFixity ) import BasicTypes ( Version, NewOrData(..) )
import RdrHsSyn ( RdrNameHsDecl, RdrNameInstDecl, RdrNameTyClDecl, RdrNameRuleDecl, import RdrHsSyn ( RdrNameHsDecl, RdrNameInstDecl, RdrNameRuleDecl,
RdrNameFixitySig, RdrNameDeprecation, RdrNameIE, RdrNameDeprecation, RdrNameIE,
extractHsTyRdrNames extractHsTyRdrNames
) )
import RnEnv ( mkImportedGlobalName, newTopBinder, mkImportedGlobalFromRdrName, import RnEnv
lookupOccRn, lookupImplicitOccRn,
pprAvail, rdrAvailInfo,
availName, availNames, addAvailToNameSet, addSysAvails,
FreeVars, emptyFVs
)
import RnMonad import RnMonad
import RnHsSyn ( RenamedHsDecl, RenamedDeprecation )
import ParseIface ( parseIface, IfaceStuff(..) ) import ParseIface ( parseIface, IfaceStuff(..) )
import Name ( Name {-instance NamedThing-}, nameOccName, import Name ( Name {-instance NamedThing-}, nameOccName,
...@@ -56,22 +50,19 @@ import Module ( Module, moduleString, pprModule, ...@@ -56,22 +50,19 @@ import Module ( Module, moduleString, pprModule,
) )
import RdrName ( RdrName, rdrNameOcc ) import RdrName ( RdrName, rdrNameOcc )
import NameSet import NameSet
import Var ( Id )
import SrcLoc ( mkSrcLoc, SrcLoc ) import SrcLoc ( mkSrcLoc, SrcLoc )
import PrelInfo ( pREL_GHC, cCallishTyKeys ) import PrelInfo ( cCallishTyKeys )
import Maybes ( MaybeErr(..), maybeToBool, orElse ) import Maybes ( MaybeErr(..), maybeToBool, orElse )
import ListSetOps ( unionLists ) import Unique ( Uniquable(..) )
import Unique ( Unique, Uniquable(..) ) import StringBuffer ( hGetStringBuffer )
import StringBuffer ( StringBuffer, hGetStringBuffer )
import FastString ( mkFastString ) import FastString ( mkFastString )
import ErrUtils ( Message ) import ErrUtils ( Message )
import Util ( sortLt, lengthExceeds ) import Util ( sortLt )
import Lex import Lex
import FiniteMap import FiniteMap
import Outputable import Outputable
import Bag import Bag
import IO ( isDoesNotExistError )
import List ( nub ) import List ( nub )
\end{code} \end{code}
......
...@@ -57,17 +57,13 @@ import Module ( Module, ModuleName, ModuleHiMap, SearchPath, WhereFrom, ...@@ -57,17 +57,13 @@ import Module ( Module, ModuleName, ModuleHiMap, SearchPath, WhereFrom,
import NameSet import NameSet
import CmdLineOpts ( opt_D_dump_rn_trace, opt_HiMap ) import CmdLineOpts ( opt_D_dump_rn_trace, opt_HiMap )
import PrelInfo ( builtinNames ) import PrelInfo ( builtinNames )
import TysWiredIn ( boolTyCon )
import SrcLoc ( SrcLoc, mkGeneratedSrcLoc ) import SrcLoc ( SrcLoc, mkGeneratedSrcLoc )
import Unique ( Unique, getUnique, unboundKey ) import Unique ( Unique, getUnique, unboundKey )
import FiniteMap ( FiniteMap, emptyFM, bagToFM, lookupFM, addToFM, addListToFM, import FiniteMap ( FiniteMap, emptyFM, bagToFM, lookupFM, addToFM, addListToFM,
addListToFM_C, addToFM_C, eltsFM, fmToList addListToFM_C, addToFM_C, eltsFM, fmToList
) )
import Bag ( Bag, mapBag, emptyBag, isEmptyBag, snocBag ) import Bag ( Bag, mapBag, emptyBag, isEmptyBag, snocBag )
import Maybes ( mapMaybe )
import UniqSet
import UniqSupply import UniqSupply
import Util
import Outputable import Outputable
infixr 9 `thenRn`, `thenRn_` infixr 9 `thenRn`, `thenRn_`
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment