1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
5 import CmdLineOpts(GlobalSwitch)
6 import ErrUtils(Error(..))
8 import Maybes(MaybeErr)
10 import NameTypes(FullName, ShortName)
11 import PreludePS(_PackedString)
12 import Pretty(Delay, PprStyle, Pretty(..), PrettyRep)
16 type CE = UniqFM Class
18 type Error = PprStyle -> Int -> Bool -> PrettyRep
22 type Pretty = Int -> Bool -> PrettyRep
26 checkClassCycles :: UniqFM Class -> MaybeErr () (PprStyle -> Int -> Bool -> PrettyRep)
27 lookupCE :: UniqFM Class -> Name -> Class
28 nullCE :: UniqFM Class
29 plusCE :: UniqFM Class -> UniqFM Class -> UniqFM Class
30 rngCE :: UniqFM Class -> [Class]
31 unitCE :: Unique -> Class -> UniqFM Class