UHC.Util.VarMp

A VarMp maps from variables (tvars, ...) to whatever else has to be mapped to (Ty, ...).

Starting with variant 6 (which introduces kinds) it allows multiple meta level mapping, in that the VarMp holds mappings for multiple meta levels. This allows one map to both map to base level info and to higher levels. In particular this is used by fitsIn which also instantiates types, and types may quantify over type variables with other kinds than kind *, which must be propagated. A separate map could have been used, but this holds the info together and is extendible to more levels.

A multiple level VarMp knows its own absolute metalevel, which is the default to use for lookup.

Documentation

data VarMp' k v

Constructors

VarMp

Fields

varmpMetaLev :: !MetaLev

the base meta level

varmpMpL :: [Map k v]

for each level a map, starting at the base meta level

Instances

(Eq k, Eq v) => Eq (VarMp' k v)

(Data k, Data v, Ord k) => Data (VarMp' k v)

(Ord k, Ord v) => Ord (VarMp' k v)

Show (VarMp' k v)

Generic (VarMp' k v)

(PP k, PP v) => PP (VarMp' k v)

(Ord k, Serialize k, Serialize v) => Serialize (VarMp' k v)

VarLookupBase (VarMp' k v) k v

Ord k => VarLookup (VarMp' k v) k v

Ord k => VarLookupCmb (VarMp' k v) (VarMp' k v)

type Rep (VarMp' k v)

ppVarMpV :: (PP k, PP v) => VarMp' k v -> PP_Doc

varmpFilter :: Ord k => (k -> v -> Bool) -> VarMp' k v -> VarMp' k v

varmpDel :: Ord k => [k] -> VarMp' k v -> VarMp' k v

Delete

(|\>) :: Ord k => VarMp' k v -> [k] -> VarMp' k v

varmpAlter :: Ord k => (Maybe v -> Maybe v) -> k -> VarMp' k v -> VarMp' k v

Alter irrespective of level

varmpUnion :: Ord k => VarMp' k v -> VarMp' k v -> VarMp' k v

varmpUnions :: Ord k => [VarMp' k v] -> VarMp' k v

module UHC.Util.VarLookup

mkVarMp :: Map k v -> VarMp' k v

emptyVarMp :: VarMp' k v

varmpIsEmpty :: VarMp' k v -> Bool

varmpShiftMetaLev :: MetaLev -> VarMp' k v -> VarMp' k v

varmpIncMetaLev :: VarMp' k v -> VarMp' k v

varmpDecMetaLev :: VarMp' k v -> VarMp' k v

varmpSelectMetaLev :: [MetaLev] -> VarMp' k v -> VarMp' k v

varmpKeys :: Ord k => VarMp' k v -> [k]

varmpKeysSet :: Ord k => VarMp' k v -> Set k

varmpMetaLevSingleton :: MetaLev -> k -> v -> VarMp' k v

varmpSingleton :: k -> v -> VarMp' k v

assocMetaLevLToVarMp :: Ord k => AssocL k (MetaLev, v) -> VarMp' k v

assocLToVarMp :: Ord k => AssocL k v -> VarMp' k v

varmpToAssocL :: VarMp' k i -> AssocL k i

varmpPlus :: Ord k => VarMp' k v -> VarMp' k v -> VarMp' k v infixr 7

varmpUnionWith :: Ord k => (v -> v -> v) -> VarMp' k v -> VarMp' k v -> VarMp' k v

combine by taking the lowest level, adapting the lists with maps accordingly

varmpLookup :: (VarLookup m k i, Ord k) => k -> m -> Maybe i

ppVarMp :: (PP k, PP v) => ([PP_Doc] -> PP_Doc) -> VarMp' k v -> PP_Doc

varmpAsMap :: VarMp' k v -> (Map k v, Map k v -> VarMp' k v)

Extract first level map, together with a construction function putting a new map into the place of the previous one

varmpMapMaybe :: Ord k => (a -> Maybe b) -> VarMp' k a -> VarMp' k b

varmpMap :: Ord k => (a -> b) -> VarMp' k a -> VarMp' k b

varmpInsertWith :: Ord k => (v -> v -> v) -> k -> v -> VarMp' k v -> VarMp' k v

data VarMpStk' k v

Instances

Show (VarMpStk' k v)

(PP k, PP v) => PP (VarMpStk' k v)

Ord k => VarLookup (VarMpStk' k v) k v

Ord k => VarLookupCmb (VarMpStk' k v) (VarMpStk' k v)

emptyVarMpStk :: VarMpStk' k v

varmpstkUnit :: Ord k => k -> v -> VarMpStk' k v

varmpstkPushEmpty :: VarMpStk' k v -> VarMpStk' k v

varmpstkPop :: VarMpStk' k v -> (VarMpStk' k v, VarMpStk' k v)

varmpstkToAssocL :: VarMpStk' k v -> AssocL k v

varmpstkKeysSet :: Ord k => VarMpStk' k v -> Set k

varmpstkUnions :: Ord k => [VarMpStk' k v] -> VarMpStk' k v

varmpSize :: VarMp' k v -> Int

varmpToMap :: VarMp' k v -> Map k v