1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface MkIface where
7 import CmdLineOpts(GlobalSwitch)
8 import FiniteMap(FiniteMap)
9 import HsBinds(MonoBinds, Sig)
10 import HsDecls(FixityDecl)
15 import NameTypes(FullName, ShortName)
16 import PreludePS(_PackedString)
17 import Pretty(Delay, PrettyRep)
18 import SimplEnv(UnfoldingDetails)
20 import StgSyn(StgBinding, StgRhs)
22 import TcInstDcls(InstInfo)
24 import TyVar(TyVarTemplate)
25 import UniType(UniType)
29 type CE = UniqFM Class
36 type TCE = UniqFM TyCon
39 mkInterface :: (GlobalSwitch -> Bool) -> _PackedString -> (_PackedString -> Bool, _PackedString -> Bool) -> UniqFM UnfoldingDetails -> FiniteMap TyCon [[Labda UniType]] -> ([FixityDecl Name], [Id], UniqFM Class, UniqFM TyCon, Bag InstInfo) -> [StgBinding Id Id] -> Int -> Bool -> PrettyRep