ghc/compiler/deSugar/DsBinds.hi

   1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
   2 interface DsBinds where
   3 import Bag(Bag)
   4 import CmdLineOpts(GlobalSwitch, SwitchResult)
   5 import CoreSyn(CoreBinding, CoreExpr)
   6 import DsMonad(DsMatchContext)
   7 import HsBinds(Binds)
   8 import HsExpr(Expr)
   9 import HsPat(TypecheckedPat)
  10 import Id(Id)
  11 import Inst(Inst)
  12 import PreludePS(_PackedString)
  13 import SplitUniq(SplitUniqSupply)
  14 import SrcLoc(SrcLoc)
  15 import TyVar(TyVar)
  16 import UniqFM(UniqFM)
  17 dsBinds :: Binds Id TypecheckedPat -> SplitUniqSupply -> SrcLoc -> (GlobalSwitch -> SwitchResult) -> (_PackedString, _PackedString) -> UniqFM (CoreExpr Id Id) -> Bag DsMatchContext -> ([CoreBinding Id Id], Bag DsMatchContext)
  18         {-# GHC_PRAGMA _A_ 1 _U_ 1222222 _N_ _S_ "S" _N_ _N_ #-}
  19 dsInstBinds :: [TyVar] -> [(Inst, Expr Id TypecheckedPat)] -> SplitUniqSupply -> SrcLoc -> (GlobalSwitch -> SwitchResult) -> (_PackedString, _PackedString) -> UniqFM (CoreExpr Id Id) -> Bag DsMatchContext -> (([(Id, CoreExpr Id Id)], [(Id, CoreExpr Id Id)]), Bag DsMatchContext)
  20         {-# GHC_PRAGMA _A_ 2 _U_ 21222222 _N_ _S_ "LS" _N_ _N_ #-}
  21