From 1dd4d1af70aff8226867f6569d8db034e0b62059 Mon Sep 17 00:00:00 2001
From: Danila Fedorin <danila.fedorin@gmail.com>
Date: Tue, 28 May 2019 22:34:31 -0700
Subject: [PATCH] Fix IntMap bug.

---
 src/CacheSim/IntMap.elm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/CacheSim/IntMap.elm b/src/CacheSim/IntMap.elm
index 7511207..adf8495 100644
--- 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