From 3c05d0cbd310af1c34d3731a15feb2a9508aded2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Fri, 15 Jul 2022 20:12:09 +0200
Subject: Stored roots with caching

---
 src/Storage/Internal.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Storage/Internal.hs')

diff --git a/src/Storage/Internal.hs b/src/Storage/Internal.hs
index 3a53567..1f093b0 100644
--- a/src/Storage/Internal.hs
+++ b/src/Storage/Internal.hs
@@ -45,6 +45,7 @@ data Storage' c = Storage
     { stBacking :: StorageBacking c
     , stParent :: Maybe (Storage' Identity)
     , stRefGeneration :: MVar (HT.BasicHashTable RefDigest Generation)
+    , stRefRoots :: MVar (HT.BasicHashTable RefDigest [RefDigest])
     }
 
 instance Eq (Storage' c) where
-- 
cgit v1.2.3