1
1
mirror of https://github.com/github/semantic.git synced 2024-12-30 02:14:20 +03:00

…and some more.

This commit is contained in:
Rob Rix 2018-03-14 11:22:25 -04:00
parent b8a3bd72f0
commit c1f3bd5711

View File

@ -105,10 +105,10 @@ instance Ord1 Tuple where liftCompare = genericLiftCompare
instance Show1 Tuple where liftShowsPrec = genericLiftShowsPrec
-- | The environment for an abstract value type.
type EnvironmentFor v = Environment (Address (LocationFor v) v)
type EnvironmentFor value = Environment (Address (LocationFor value) value)
-- | The store for an abstract value type.
type StoreFor v = Store (LocationFor v) v
type StoreFor value = Store (LocationFor value) value
-- | The cell for an abstract value type.
type CellFor value = Cell (LocationFor value) value