1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface RenameExpr4 where
4 import CmdLineOpts(GlobalSwitch)
5 import FiniteMap(FiniteMap)
8 import HsMatches(GRHS, GRHSsAndBinds, Match)
13 import NameTypes(FullName, ShortName)
14 import PreludePS(_PackedString)
15 import Pretty(PprStyle, Pretty(..), PrettyRep)
16 import ProtoName(ProtoName)
17 import RenameAuxFuns(GlobalNameFun(..))
18 import SplitUniq(SplitUniqSupply)
21 import UniType(UniType)
23 import UniqSet(UniqSet(..))
26 data GRHSsAndBinds a b
31 type Pretty = Int -> Bool -> PrettyRep
34 type GlobalNameFun = ProtoName -> Labda Name
38 type UniqSet a = UniqFM a
40 rnGRHSsAndBinds4 :: GRHSsAndBinds ProtoName (InPat ProtoName) -> (GlobalSwitch -> Bool) -> (ProtoName -> Labda Name, ProtoName -> Labda Name) -> FiniteMap _PackedString Name -> Bag (PprStyle -> Int -> Bool -> PrettyRep) -> SplitUniqSupply -> SrcLoc -> ((GRHSsAndBinds Name (InPat Name), UniqFM Name), Bag (PprStyle -> Int -> Bool -> PrettyRep))
41 rnMatch4 :: Match ProtoName (InPat ProtoName) -> (GlobalSwitch -> Bool) -> (ProtoName -> Labda Name, ProtoName -> Labda Name) -> FiniteMap _PackedString Name -> Bag (PprStyle -> Int -> Bool -> PrettyRep) -> SplitUniqSupply -> SrcLoc -> ((Match Name (InPat Name), UniqFM Name), Bag (PprStyle -> Int -> Bool -> PrettyRep))
42 rnPat4 :: InPat ProtoName -> (GlobalSwitch -> Bool) -> (ProtoName -> Labda Name, ProtoName -> Labda Name) -> FiniteMap _PackedString Name -> Bag (PprStyle -> Int -> Bool -> PrettyRep) -> SplitUniqSupply -> SrcLoc -> (InPat Name, Bag (PprStyle -> Int -> Bool -> PrettyRep))