1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface TyVarEnv where
3 import Maybes(Labda(..))
5 import UniType(UniType)
8 data Labda a = Hamna | Ni a
10 type TyVarEnv a = UniqFM a
11 type TypeEnv = UniqFM UniType
14 addOneToTyVarEnv :: UniqFM a -> TyVar -> a -> UniqFM a
15 growTyVarEnvList :: UniqFM a -> [(TyVar, a)] -> UniqFM a
16 isNullTyVarEnv :: UniqFM a -> Bool
17 lookupTyVarEnv :: UniqFM a -> TyVar -> Labda a
18 mkTyVarEnv :: [(TyVar, a)] -> UniqFM a
19 nullTyVarEnv :: UniqFM a