X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsBinds.hi;fp=ghc%2Fcompiler%2FdeSugar%2FDsBinds.hi;h=0000000000000000000000000000000000000000;hb=6c381e873e222417d9a67aeec77b9555eca7b7a8;hp=dfa1e5d126b155977913a405d10a3c8507a79b9b;hpb=8147a9f0bcc48ef0db1e91f8b985a4f5c3fed560;p=ghc-hetmet.git diff --git a/ghc/compiler/deSugar/DsBinds.hi b/ghc/compiler/deSugar/DsBinds.hi deleted file mode 100644 index dfa1e5d..0000000 --- a/ghc/compiler/deSugar/DsBinds.hi +++ /dev/null @@ -1,19 +0,0 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} -interface DsBinds where -import Bag(Bag) -import CmdLineOpts(GlobalSwitch, SwitchResult) -import CoreSyn(CoreBinding, CoreExpr) -import DsMonad(DsMatchContext) -import HsBinds(Binds) -import HsExpr(Expr) -import HsPat(TypecheckedPat) -import Id(Id) -import Inst(Inst) -import PreludePS(_PackedString) -import SplitUniq(SplitUniqSupply) -import SrcLoc(SrcLoc) -import TyVar(TyVar) -import UniqFM(UniqFM) -dsBinds :: Binds Id TypecheckedPat -> SplitUniqSupply -> SrcLoc -> (GlobalSwitch -> SwitchResult) -> (_PackedString, _PackedString) -> UniqFM (CoreExpr Id Id) -> Bag DsMatchContext -> ([CoreBinding Id Id], Bag DsMatchContext) -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) -