github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00
Code Issues Projects Releases Wiki Activity

📝 getStore.

Browse Source
This commit is contained in:
Rob Rix 2017-12-21 11:15:36 -05:00
parent 1a0c163145
commit 86b4e6ad6c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Control/Monad/Effect/Store.hs
View File

@ -19,6 +19,7 @@ assign = (modifyStore .) . storeInsert
-- | 'Monad's offering a readable & writable 'Store' of values for specific 'Address'es. -- | 'Monad's offering a readable & writable 'Store' of values for specific 'Address'es.
class Monad m => MonadStore a m where class Monad m => MonadStore a m where
-- | Get the current store.
getStore :: m (Store (LocationFor a) a) getStore :: m (Store (LocationFor a) a)
putStore :: Store (LocationFor a) a -> m () putStore :: Store (LocationFor a) a -> m ()