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

📝 MonadStore.

Browse Source
This commit is contained in:
Rob Rix 2017-12-21 11:15:16 -05:00
parent 9390869304
commit 1a0c163145
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

@ -17,6 +17,7 @@ assign :: (Ord (LocationFor a), Semigroup (Cell (LocationFor a) a), Pointed (Cel
assign = (modifyStore .) . storeInsert
-- | 'Monad's offering a readable & writable 'Store' of values for specific 'Address'es.
class Monad m => MonadStore a m where
getStore :: m (Store (LocationFor a) a)
putStore :: Store (LocationFor a) a -> m ()