From 559821f54a5e32cbc005a46235a88051e69b6ceb Mon Sep 17 00:00:00 2001
From: Danila Fedorin <danila.fedorin@gmail.com>
Date: Tue, 28 May 2019 19:01:51 -0700
Subject: [PATCH] Add code to create fresh cache.

---
 src/CacheSim/Cache.elm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/CacheSim/Cache.elm b/src/CacheSim/Cache.elm
index 345188d..4290a41 100644
--- a/src/CacheSim/Cache.elm
+++ b/src/CacheSim/Cache.elm
@@ -128,3 +128,11 @@ accessCache wa c =
             Just (Ok ar) -> Ok <| transformAccess ar
             Just (Err e) -> Err <| "Error accessing cache set: " ++ e
             Nothing -> Err "Unable to find correct set in cache."
+
+freshCache : CacheModel -> Cache
+freshCache cm =
+    let
+        set = List.repeat cm.setSize Empty
+        sets = List.repeat cm.setCount set
+    in
+        (cm, sets)