1
1
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00

📝 getCache.

This commit is contained in:
Rob Rix 2017-12-21 10:45:31 -05:00
parent ec027c6e60
commit 5bf888bc51

View File

@ -40,6 +40,7 @@ instance (Reader (Cache (LocationFor v) t v) :< fs) => MonadCacheIn t v (Eff fs)
--
-- See also 'MonadCacheIn' for discussion of the conditions of finitization.
class Monad m => MonadCacheOut t v m where
-- | Retrieve the current out-cache.
getCache :: m (Cache (LocationFor v) t v)
putCache :: Cache (LocationFor v) t v -> m ()