1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface TcContext where
5 import CmdLineOpts(GlobalSwitch)
7 import Pretty(PprStyle, PrettyRep)
8 import SplitUniq(SplitUniqSupply)
10 import TcMonad(Baby_TcResult)
12 import UniType(UniType)
14 tcContext :: UniqFM Class -> UniqFM TyCon -> UniqFM UniType -> [(Name, Name)] -> (GlobalSwitch -> Bool) -> SplitUniqSupply -> Bag (PprStyle -> Int -> Bool -> PrettyRep) -> SrcLoc -> Baby_TcResult [(Class, UniType)]
15 {-# GHC_PRAGMA _A_ 4 _U_ 22212222 _N_ _S_ "LLLS" _N_ _N_ #-}