github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00
Code Issues Projects Releases Wiki Activity

📝 askCache.

Browse Source
This commit is contained in:
Rob Rix 2017-12-21 10:44:37 -05:00
parent cb3bb31f99
commit 8791d01796
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/Cache.hs
View File

@ -18,6 +18,7 @@ import Data.Abstract.Value
-- --
-- @n@ differs at every iteration, and thus a precise modelling of the integral value will not converge in the store: each iteration will allocate a new address & write a distinct value into it. Modelling values with their types _will_ converge, however, as the type at each iteration is the same. -- @n@ differs at every iteration, and thus a precise modelling of the integral value will not converge in the store: each iteration will allocate a new address & write a distinct value into it. Modelling values with their types _will_ converge, however, as the type at each iteration is the same.
class Monad m => MonadCacheIn t v m where class Monad m => MonadCacheIn t v m where
-- | Retrieve the local in-cache.
askCache :: m (Cache (LocationFor v) t v) askCache :: m (Cache (LocationFor v) t v)
localCache :: (Cache (LocationFor v) t v -> Cache (LocationFor v) t v) -> m a -> m a localCache :: (Cache (LocationFor v) t v -> Cache (LocationFor v) t v) -> m a -> m a