From fed46241f1b55ae0991c7148937b2f89fa0837b9 Mon Sep 17 00:00:00 2001
From: Danila Fedorin <danila.fedorin@gmail.com>
Date: Tue, 28 May 2019 19:49:30 -0700
Subject: [PATCH] Fix data loss bug in update.

---
 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 3503671..7511207 100644
--- a/src/CacheSim/IntMap.elm
+++ b/src/CacheSim/IntMap.elm
@@ -21,7 +21,7 @@ intMapUpdate i f m =
     case (i, m) of
         (_, []) -> []
         (0, (x::xs)) -> (f x)::xs
-        (n, (x::xs)) -> intMapUpdate (n-1) f xs
+        (n, (x::xs)) -> x :: intMapUpdate (n-1) f xs
 
 intMapPut : Int -> a -> IntMap a -> IntMap a
 intMapPut i v = intMapUpdate i (\_ -> v)