{-# GHC_PRAGMA INTERFACE VERSION 5 #-} interface RenameExpr4 where import Bag(Bag) import CmdLineOpts(GlobalSwitch) import FiniteMap(FiniteMap) import HsBinds(Binds) import HsLit(Literal) import HsMatches(GRHS, GRHSsAndBinds, Match) import HsPat(InPat) import Id(Id) import Maybes(Labda) import Name(Name) import NameTypes(FullName, ShortName) import PreludePS(_PackedString) import Pretty(PprStyle, Pretty(..), PrettyRep) import ProtoName(ProtoName) import RenameAuxFuns(GlobalNameFun(..)) import SplitUniq(SplitUniqSupply) import SrcLoc(SrcLoc) import TyCon(TyCon) import UniType(UniType) import UniqFM(UniqFM) import UniqSet(UniqSet(..)) import Unique(Unique) data Bag a data GRHSsAndBinds a b data InPat a data Labda a data Name data PprStyle type Pretty = Int -> Bool -> PrettyRep data PrettyRep data ProtoName type GlobalNameFun = ProtoName -> Labda Name data SplitUniqSupply data SrcLoc data UniqFM a type UniqSet a = UniqFM a data Unique 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)) 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)) 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))