From f27e07318e9594308d6985adeb904d4a55639adf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 19 Oct 2025 22:09:28 +0200
Subject: Add refDigestBytes function

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

diff --git a/src/Erebos/Storage/Backend.hs b/src/Erebos/Storage/Backend.hs
index 620d423..59097b6 100644
--- a/src/Erebos/Storage/Backend.hs
+++ b/src/Erebos/Storage/Backend.hs
@@ -9,12 +9,15 @@ module Erebos.Storage.Backend (
     Complete, Partial,
     Storage, PartialStorage,
     newStorage,
+    refDigestBytes,
 
     WatchID, startWatchID, nextWatchID,
 ) where
 
 import Control.Concurrent.MVar
 
+import Data.ByteArray qualified as BA
+import Data.ByteString (ByteString)
 import Data.HashTable.IO qualified as HT
 
 import Erebos.Object.Internal
@@ -26,3 +29,7 @@ newStorage stBackend = do
     stRefGeneration <- newMVar =<< HT.new
     stRefRoots <- newMVar =<< HT.new
     return Storage {..}
+
+
+refDigestBytes :: RefDigest -> ByteString
+refDigestBytes = BA.convert
-- 
cgit v1.2.3