{-# GHC_PRAGMA INTERFACE VERSION 5 #-} interface DsGRHSs where import Bag(Bag) import CmdLineOpts(GlobalSwitch, SwitchResult) import CoreSyn(CoreExpr) import DsMonad(DsMatchContext, DsMatchKind) import DsUtils(MatchResult) import HsMatches(GRHS, GRHSsAndBinds) import HsPat(TypecheckedPat) import Id(Id) import PreludePS(_PackedString) import SplitUniq(SplitUniqSupply) import SrcLoc(SrcLoc) import UniType(UniType) import UniqFM(UniqFM) dsGRHSs :: UniType -> DsMatchKind -> [TypecheckedPat] -> [GRHS Id TypecheckedPat] -> SplitUniqSupply -> SrcLoc -> (GlobalSwitch -> SwitchResult) -> (_PackedString, _PackedString) -> UniqFM (CoreExpr Id Id) -> Bag DsMatchContext -> (MatchResult, Bag DsMatchContext) {-# GHC_PRAGMA _A_ 10 _U_ 2221222222 _N_ _S_ "LLLS" _N_ _N_ #-} dsGuarded :: GRHSsAndBinds Id TypecheckedPat -> SrcLoc -> SplitUniqSupply -> SrcLoc -> (GlobalSwitch -> SwitchResult) -> (_PackedString, _PackedString) -> UniqFM (CoreExpr Id Id) -> Bag DsMatchContext -> (CoreExpr Id Id, Bag DsMatchContext) {-# GHC_PRAGMA _A_ 2 _U_ 12222222 _N_ _S_ "SL" _N_ _N_ #-}