1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface Desugar where
4 import CmdLineOpts(GlobalSwitch, SwitchResult)
5 import CoreSyn(CoreBinding, CoreExpr)
6 import DsMonad(DsMatchContext, DsMatchKind)
7 import HsBinds(Bind, Binds, Sig)
8 import HsExpr(ArithSeqInfo, Expr, Qual)
10 import HsMatches(Match)
11 import HsPat(TypecheckedPat)
12 import HsTypes(PolyType)
15 import PreludePS(_PackedString)
16 import SplitUniq(SplitUniqSupply)
19 import UniType(UniType)
31 deSugar :: SplitUniqSupply -> (GlobalSwitch -> SwitchResult) -> _PackedString -> (Binds Id TypecheckedPat, Binds Id TypecheckedPat, Binds Id TypecheckedPat, [(Inst, Expr Id TypecheckedPat)]) -> ([CoreBinding Id Id], Bag DsMatchContext)