fix cache using wrong LRU value.

2019-05-28 22:38:23 -07:00
parent 1dd4d1af70
commit 7cababbe67
1 changed files with 1 additions and 1 deletions
--- a/src/CacheSim/Cache.elm
+++ b/src/CacheSim/Cache.elm
@@ -67,7 +67,7 @@ findEmptySlot =
 findLruSlot : CacheSet -> Maybe Int
 findLruSlot cs =
    let
-        minLru = List.minimum <| List.map cacheSlotLru cs
+        minLru = List.maximum <| List.map cacheSlotLru cs
        isMin s = Just (cacheSlotLru s) == minLru
    in
        intMapFind isMin cs