From 4c2e86ddd75f0e655fcb21aa8597dc71ce5330be Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 27 Aug 2023 17:21:50 +0200
Subject: Call refStorage only internally in Storage modules

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index b51fa0d..b3f503d 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -251,7 +251,7 @@ instance MonadRandom CommandM where
     getRandomBytes = liftIO . getRandomBytes
 
 instance MonadStorage CommandM where
-    getStorage = gets $ refStorage . headRef . csHead
+    getStorage = gets $ headStorage . csHead
 
 instance MonadHead LocalState CommandM where
     updateLocalHead f = do
-- 
cgit v1.2.3