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

Eta-expand cacheInsert.

Browse Source
This commit is contained in:
Rob Rix 2017-12-20 16:16:50 -05:00
parent 2b6e3974c2
commit 59f4107263
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Abstract/Cache.hs
View File

@ -26,7 +26,7 @@ cacheSet :: (Ord l, Ord t, Ord v, Ord (Cell l v)) => Configuration l t v -> Set
cacheSet key value = Cache . Map.insert key value . unCache
cacheInsert :: (Ord l, Ord t, Ord v, Ord (Cell l v)) => Configuration l t v -> (v, Store l v) -> Cache l t v -> Cache l t v
cacheInsert = (((Cache .) . (. unCache)) .) . (. point) . Map.insertWith (<>)
cacheInsert key value = Cache . Map.insertWith (<>) key (point value) . unCache
instance (Eq l, Eq t, Eq1 (Cell l)) => Eq1 (Cache l t) where