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

Rename the cache binding.

Browse Source
This commit is contained in:
Rob Rix 2017-12-21 14:59:29 -05:00
parent a9fca0db5f
commit 6723936881
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Analysis/Abstract/Caching.hs
View File

@ -122,13 +122,13 @@ fixCache ev' yield e = do
store <- getStore
roots <- askRoots
let c = Configuration e roots env store :: Configuration (LocationFor v) t v
pairs <- mlfp (\ dollar -> do
cache <- mlfp (\ dollar -> do
putCache (mempty :: Cache (LocationFor v) t v)
putStore store
reset 0
_ <- localCache (const dollar) (collect point (ev' yield e) :: m (Set.Set v))
getCache) mempty
asum . flip map (maybe [] toList (cacheLookup c pairs)) $ \ (value, store') -> do
asum . flip map (maybe [] toList (cacheLookup c cache)) $ \ (value, store') -> do
putStore store'
pure value