mirror of
https://github.com/github/semantic.git
synced 2024-12-29 18:06:14 +03:00
Define a Heap effect.
This commit is contained in:
parent
e20c60f7a7
commit
bd8b21ebba
@ -31,3 +31,8 @@ data Env name addr m k
|
||||
| Lookup name (Maybe addr -> m k)
|
||||
|
||||
deriving instance Functor m => Functor (Env name addr m)
|
||||
|
||||
data Heap addr value m k
|
||||
= Deref addr (Maybe value -> m k)
|
||||
| Assign addr value (m k)
|
||||
deriving (Functor)
|
||||
|
Loading…
Reference in New Issue
Block a user