1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
5 import CmdLineOpts(GlobalSwitch)
6 import ErrUtils(Error(..))
7 import HsBinds(Binds, Sig)
8 import HsDecls(ClassDecl, DataTypeSig, DefaultDecl, FixityDecl, InstDecl, SpecialisedInstanceSig, TyDecl)
9 import HsImpExp(IE, ImportedInterface)
11 import HsPat(InPat, ProtoNamePat(..), RenamedPat(..))
15 import NameTypes(FullName, ShortName)
16 import PreludePS(_PackedString)
17 import Pretty(PprStyle, Pretty(..), PrettyRep)
18 import ProtoName(ProtoName)
19 import RenameAuxFuns(GlobalNameFun(..), GlobalNameFuns(..), PreludeNameFun(..), PreludeNameFuns(..))
20 import SplitUniq(SplitUniqSupply)
27 type Error = PprStyle -> Int -> Bool -> PrettyRep
29 type ProtoNamePat = InPat ProtoName
30 type RenamedPat = InPat Name
34 type Pretty = Int -> Bool -> PrettyRep
37 type GlobalNameFun = ProtoName -> Labda Name
38 type GlobalNameFuns = (ProtoName -> Labda Name, ProtoName -> Labda Name)
39 type PreludeNameFun = _PackedString -> Labda Name
40 type PreludeNameFuns = (_PackedString -> Labda Name, _PackedString -> Labda Name)
42 renameModule :: (GlobalSwitch -> Bool) -> (_PackedString -> Labda Name, _PackedString -> Labda Name) -> Module ProtoName (InPat ProtoName) -> SplitUniqSupply -> (Module Name (InPat Name), [_PackedString], (ProtoName -> Labda Name, ProtoName -> Labda Name), Bag (PprStyle -> Int -> Bool -> PrettyRep))