1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface TcGRHSs where
4 import CmdLineOpts(GlobalSwitch)
6 import HsMatches(GRHSsAndBinds)
7 import HsPat(InPat, TypecheckedPat)
11 import Pretty(PprStyle, PrettyRep)
12 import SplitUniq(SplitUniqSupply)
15 import TcMonad(TcResult)
16 import UniType(UniType)
17 tcGRHSsAndBinds :: E -> GRHSsAndBinds Name (InPat Name) -> (GlobalSwitch -> Bool) -> [UniType] -> Subst -> SplitUniqSupply -> Bag (PprStyle -> Int -> Bool -> PrettyRep) -> SrcLoc -> TcResult (GRHSsAndBinds Id TypecheckedPat, LIE, UniType)