From 3ab6a143f95dad46cee526b709a2687bb28e985b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 9 Feb 2026 09:48:34 +0100
Subject: Export accessor to storage backend object

---
 src/Erebos/Storage/Backend.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/Erebos/Storage/Backend.hs')

diff --git a/src/Erebos/Storage/Backend.hs b/src/Erebos/Storage/Backend.hs
index 59097b6..07bd63e 100644
--- a/src/Erebos/Storage/Backend.hs
+++ b/src/Erebos/Storage/Backend.hs
@@ -9,6 +9,8 @@ module Erebos.Storage.Backend (
     Complete, Partial,
     Storage, PartialStorage,
     newStorage,
+    withStorageBackend,
+
     refDigestBytes,
 
     WatchID, startWatchID, nextWatchID,
@@ -30,6 +32,9 @@ newStorage stBackend = do
     stRefRoots <- newMVar =<< HT.new
     return Storage {..}
 
+withStorageBackend :: Storage' c -> (forall bck. (StorageBackend bck, BackendCompleteness bck ~ c) => bck -> IO a) -> IO a
+withStorageBackend Storage {..} f = f stBackend
+
 
 refDigestBytes :: RefDigest -> ByteString
 refDigestBytes = BA.convert
-- 
cgit v1.2.3