Fix IntMap bug.

2019-05-28 22:34:31 -07:00 · 2019-05-28 22:34:31 -07:00 · 1dd4d1af70
parent d3f34ac13c
commit 1dd4d1af70
1 changed files with 1 additions and 1 deletions
--- a/src/CacheSim/IntMap.elm
+++ b/src/CacheSim/IntMap.elm
@ -32,6 +32,6 @@ intMapFind f m =
        findHelper n l =
            case l of
                [] -> Nothing
-                (x::xs) -> if f x then Just n else findHelper (n - 1) xs
+                (x::xs) -> if f x then Just n else findHelper (n + 1) xs
    in
        findHelper 0 m