1
1
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00

Define a Heap effect.

This commit is contained in:
Rob Rix 2019-10-11 16:50:36 -04:00
parent e20c60f7a7
commit bd8b21ebba
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7

View File

@ -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)