fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor: hlint

Browse Source
This commit is contained in:
Gregor Kleen 2021-02-17 15:12:56 +01:00
parent 8d1f216b5b
commit e179c0ff6c
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/Utils/LRU.hs
View File

@ -82,7 +82,7 @@ insertLRU k t newVal oldLRU@LRU{..} now
| Just (_, w) <- newVal, w > lruMaximumWeight = (oldLRU, now) | Just (_, w) <- newVal, w > lruMaximumWeight = (oldLRU, now)
| Just (_, w) <- newVal = (, later) $ | Just (_, w) <- newVal = (, later) $
let (lruStore', lruWeight') = evictToSize (lruMaximumWeight - w) lruStore lruWeight let (lruStore', lruWeight') = evictToSize (lruMaximumWeight - w) lruStore lruWeight
((fromMaybe 0 . preview (_Just . _2 . _2) -> oldWeight), lruStore'') (fromMaybe 0 . preview (_Just . _2 . _2) -> oldWeight, lruStore'')
= OrdPSQ.alter (, ((t, now), ) <$> newVal) k lruStore' = OrdPSQ.alter (, ((t, now), ) <$> newVal) k lruStore'
in oldLRU in oldLRU
{ lruStore = lruStore'' { lruStore = lruStore''