Verified Commit 83f4a4b6 authored by Camil Staps's avatar Camil Staps 🚀

Fix order of cache reevaluation

parent 8cb8e467
......@@ -212,7 +212,7 @@ where
suggs _ _ _ = Nothing
reloadCache :: !CloogleDB -> *World -> *World
reloadCache db = uncurry (flip (foldr search)) o allCacheKeys LongTerm
reloadCache db = uncurry (flip (foldl (flip search))) o allCacheKeys LongTerm
where
search :: !RequestCacheKey -> *World -> *World
search r = thd3 o handle db (Just $ fromRequestCacheKey r) o removeFromCache LongTerm r
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment