github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 16:02:43 +03:00
Code Issues Projects Releases Wiki Activity

Define a CellFor synonym.

Browse Source
This commit is contained in:
Rob Rix 2018-03-07 11:33:56 -05:00
parent 1c00a35d3c
commit 6c0a818269
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Abstract/Value.hs
View File

@ -81,6 +81,8 @@ type EnvironmentFor v = Environment (LocationFor v) v
-- | The store for an abstract value type. -- | The store for an abstract value type.
type StoreFor v = Store (LocationFor v) v type StoreFor v = Store (LocationFor v) v
type CellFor value = Cell (LocationFor value) value
-- | The location type (the body of 'Address'es) which should be used for an abstract value type. -- | The location type (the body of 'Address'es) which should be used for an abstract value type.
type family LocationFor value :: * where type family LocationFor value :: * where
LocationFor (Value location term) = location LocationFor (Value location term) = location