From 8cf30e37517961a5b2be147af4af4353365d890b Mon Sep 17 00:00:00 2001 From: sof Date: Mon, 26 May 1997 04:29:22 +0000 Subject: [PATCH] [project @ 1997-05-26 04:29:22 by sof] Updated imports --- ghc/compiler/main/MkIface.lhs | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs index d88568d..137ce80 100644 --- a/ghc/compiler/main/MkIface.lhs +++ b/ghc/compiler/main/MkIface.lhs @@ -18,13 +18,14 @@ IMPORT_1_3(IO(Handle,hPutStr,openFile,hClose,IOMode(..))) import HsSyn import RdrHsSyn ( RdrName(..) ) import RnHsSyn ( SYN_IE(RenamedHsModule) ) +import BasicTypes ( Fixity(..), FixityDirection(..), NewOrData(..) ) import RnMonad import RnEnv ( availName ) import TcInstUtil ( InstInfo(..) ) import CmdLineOpts -import Id ( idType, dataConRawArgTys, dataConFieldLabels, isDataCon, +import Id ( idType, dataConRawArgTys, dataConFieldLabels, getIdInfo, getInlinePragma, omitIfaceSigForId, dataConStrictMarks, StrictnessMark(..), SYN_IE(IdSet), idSetToList, unionIdSets, unitIdSet, minusIdSet, @@ -39,7 +40,7 @@ import IdInfo ( StrictnessInfo, ArityInfo, import CoreSyn ( SYN_IE(CoreExpr), SYN_IE(CoreBinding), GenCoreExpr, GenCoreBinding(..) ) import CoreUnfold ( calcUnfoldingGuidance, UnfoldingGuidance(..), Unfolding ) import FreeVars ( addExprFVs ) -import Name ( isLocallyDefined, isWiredInName, modAndOcc, getName, pprOccName, +import Name ( isLocallyDefined, isWiredInName, modAndOcc, getName, nameModule, pprOccName, OccName, occNameString, nameOccName, nameString, isExported, Name {-instance NamedThing-}, Provenance, NamedThing(..) ) @@ -48,14 +49,14 @@ import Class ( GenClass(..){-instance NamedThing-}, SYN_IE(Class), GenClassOp, classOpLocalType, classSig ) import FieldLabel ( FieldLabel{-instance NamedThing-}, fieldLabelName, fieldLabelType ) -import Type ( mkSigmaTy, mkDictTy, getAppTyCon, splitForAllTy, +import Type ( mkSigmaTy, mkDictTy, getAppTyCon, mkTyVarTy, SYN_IE(Type) ) import TyVar ( GenTyVar {- instance Eq -} ) import Unique ( Unique {- instance Eq -} ) import PprEnv -- not sure how much... -import PprStyle ( PprStyle(..) ) +import Outputable ( PprStyle(..), Outputable(..) ) import PprType import PprCore ( pprIfaceUnfolding ) import Pretty @@ -70,8 +71,6 @@ import Util ( sortLt, zipWithEqual, zipWith3Equal, mapAccumL, assertPanic, panic{-ToDo:rm-}, pprTrace, pprPanic ) -import Outputable ( Outputable(..) ) - \end{code} We have a function @startIface@ to open the output file and put @@ -179,7 +178,7 @@ ifaceExports if_hdl avails insert NotAvailable efm = efm insert avail efm = addToFM_C (++) efm mod [avail] where - (mod,_) = modAndOcc (availName avail) + mod = nameModule (availName avail) -- Print one module's worth of stuff do_one_module (mod_name, avails) -- 1.7.10.4