Commit af93bb78 authored by simonpj's avatar simonpj
Browse files

[project @ 2002-02-13 14:05:50 by simonpj]

Import wibbles
parent ab96f60d
......@@ -22,7 +22,7 @@ import TcHsSyn ( TypecheckedHsExpr, TypecheckedHsBinds, TypecheckedStmt, outPat
-- So WATCH OUT; check each use of split*Ty functions.
-- Sigh. This is a pain.
import TcType ( tcSplitAppTy, tcSplitFunTys, tcSplitTyConApp_maybe, tcTyConAppArgs,
import TcType ( tcSplitAppTy, tcSplitFunTys, tcTyConAppArgs,
isIntegerTy, tcSplitTyConApp, isUnLiftedType, Type )
import Type ( splitFunTys )
import CoreSyn
......@@ -46,7 +46,7 @@ import DataCon ( DataCon, dataConWrapId, dataConFieldLabels, dataConInstOrigArg
import DataCon ( isExistentialDataCon )
import Literal ( Literal(..) )
import TyCon ( tyConDataCons )
import TysWiredIn ( tupleCon, listTyCon, charDataCon, intDataCon )
import TysWiredIn ( tupleCon, charDataCon, intDataCon )
import BasicTypes ( RecFlag(..), Boxity(..), ipNameName )
import Maybes ( maybeToBool )
import PrelNames ( hasKey, ratioTyConKey, toPName )
......
......@@ -11,7 +11,6 @@ module DsListComp ( dsListComp, dsPArrComp ) where
import {-# SOURCE #-} DsExpr ( dsExpr, dsLet )
import BasicTypes ( Boxity(..) )
import DataCon ( dataConId )
import TyCon ( tyConName )
import HsSyn ( OutPat(..), HsExpr(..), Stmt(..),
HsMatchContext(..), HsDoContext(..),
......
......@@ -45,7 +45,7 @@ import Id ( idName )
import IdInfo ( CafInfo(..), CgInfoEnv, CgInfo(..) )
import StringBuffer ( hGetStringBuffer, freeStringBuffer )
import Parser
import Lex ( PState(..), ParseResult(..), ExtFlags(..), mkPState )
import Lex ( ParseResult(..), ExtFlags(..), mkPState )
import SrcLoc ( mkSrcLoc )
import Finder ( findModule )
import Rename ( checkOldIface, renameModule, closeIfaceDecls )
......@@ -81,7 +81,7 @@ import HscStats ( ppSourceStats )
import HscTypes
import FiniteMap ( FiniteMap, plusFM, emptyFM, addToFM )
import OccName ( OccName )
import Name ( Name, nameModule, nameOccName, getName, isGlobalName )
import Name ( Name, nameModule, nameOccName, getName )
import NameEnv ( emptyNameEnv, mkNameEnv )
import Module ( Module )
......
......@@ -16,7 +16,6 @@ module StixInfo (
#include "NCG.h"
import AbsCSyn ( AbstractC(..), Liveness(..), C_SRT(..), needsSRT )
import StgSyn ( SRT(..) )
import ClosureInfo ( closurePtrsSize,
closureNonHdrSize, closureSMRep,
infoTableLabelFromCI,
......
{- -*-haskell-*-
-----------------------------------------------------------------------------
$Id: Parser.y,v 1.87 2002/02/12 03:52:08 chak Exp $
$Id: Parser.y,v 1.88 2002/02/13 14:05:51 simonpj Exp $
Haskell grammar.
......@@ -21,9 +21,9 @@ import RdrName
import PrelNames ( mAIN_Name, unitTyCon_RDR, funTyCon_RDR,
listTyCon_RDR, parrTyCon_RDR, tupleTyCon_RDR,
unitCon_RDR, nilCon_RDR, tupleCon_RDR )
import ForeignCall ( Safety(..), CExportSpec(..), CCallSpec(..),
import ForeignCall ( Safety(..), CExportSpec(..),
CCallConv(..), CCallTarget(..), defaultCCallConv,
DNCallSpec(..) )
)
import OccName ( UserFS, varName, tcName, dataName, tcClsName, tvName )
import SrcLoc ( SrcLoc )
import Module
......
......@@ -30,15 +30,12 @@ import Name ( Name, mkWiredInName )
import RdrName ( RdrName, mkRdrOrig )
import OccName ( OccName, pprOccName, mkVarOcc )
import TyCon ( TyCon, isPrimTyCon, tyConPrimRep )
import Type ( Type, mkForAllTys, mkFunTy, mkFunTys, typePrimRep,
splitFunTy_maybe, tyConAppTyCon, splitTyConApp
)
import Type ( Type, mkForAllTys, mkFunTy, mkFunTys, typePrimRep, tyConAppTyCon )
import PprType () -- get at Outputable Type instance.
import Unique ( mkPrimOpIdUnique )
import BasicTypes ( Arity, Boxity(..) )
import PrelNames ( pREL_GHC, pREL_GHC_Name )
import Outputable
import Util ( zipWithEqual )
import FastTypes
\end{code}
......
......@@ -30,7 +30,7 @@ import RnEnv ( bindLocatedLocalsRn )
import RnMonad ( renameDerivedCode, thenRn, mapRn, returnRn )
import HscTypes ( DFunId, PersistentRenamerState, FixityEnv )
import BasicTypes ( Fixity, NewOrData(..) )
import BasicTypes ( NewOrData(..) )
import Class ( className, classKey, classTyVars, Class )
import ErrUtils ( dumpIfSet_dyn )
import MkId ( mkDictFunId )
......@@ -47,7 +47,7 @@ import TyCon ( tyConTyVars, tyConDataCons, tyConArity, newTyConRep,
)
import TcType ( TcType, ThetaType, mkTyVarTys, mkTyConApp, getClassPredTys_maybe,
isUnLiftedType, mkClassPred, tyVarsOfTypes, tcSplitFunTys,
tcSplitTyConApp_maybe, tcEqTypes, tyVarsOfTheta )
tcSplitTyConApp_maybe, tcEqTypes )
import Var ( TyVar, tyVarKind )
import VarSet ( mkVarSet, subVarSet )
import PrelNames
......
......@@ -34,7 +34,6 @@ import Inst ( emptyLIE, LIE, plusLIE )
import ErrUtils ( Message )
import Id ( Id, mkLocalId )
import Name ( nameOccName )
import PrimRep ( getPrimRepSize, isFloatingRep )
import Type ( typePrimRep )
import TcType ( Type, tcSplitFunTys, tcSplitTyConApp_maybe,
......
......@@ -23,7 +23,7 @@ import Module ( Module )
import TcMonad
import TcEnv ( TcEnv, RecTcEnv, TcTyThing(..), TyThing(..), TyThingDetails(..),
tcExtendKindEnv, tcLookup, tcExtendGlobalEnv, tcExtendGlobalValEnv,
tcExtendKindEnv, tcLookup, tcExtendGlobalEnv,
isLocalThing )
import TcTyDecls ( tcTyDecl, kcConDetails, checkValidTyCon )
import TcClassDcl ( tcClassDecl1, checkValidClass )
......
......@@ -33,7 +33,6 @@ import TyCon ( TyCon, isPrimTyCon, isTupleTyCon, tupleTyConBoxity,
)
-- others:
import CmdLineOpts ( opt_PprStyle_RawTypes )
import Maybes ( maybeToBool )
import Name ( getOccString, getOccName )
import OccName ( occNameUserString )
......
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