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