1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
4 import ErrUtils(Error(..))
6 import Maybes(MaybeErr)
8 import NameTypes(FullName, ShortName)
9 import PreludePS(_PackedString)
10 import Pretty(Delay, PprStyle, Pretty(..), PrettyRep)
15 type Error = PprStyle -> Int -> Bool -> PrettyRep
18 type Pretty = Int -> Bool -> PrettyRep
21 type TCE = UniqFM TyCon
24 checkTypeCycles :: UniqFM TyCon -> MaybeErr () (PprStyle -> Int -> Bool -> PrettyRep)
25 lookupTCE :: UniqFM TyCon -> Name -> TyCon
26 nullTCE :: UniqFM TyCon
27 plusTCE :: UniqFM TyCon -> UniqFM TyCon -> UniqFM TyCon
28 rngTCE :: UniqFM TyCon -> [TyCon]
29 unitTCE :: Unique -> TyCon -> UniqFM TyCon