From e0762612e95b0816721165c5aba6189809fcde58 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 27 Oct 2026 22:08:47 +0100
Subject: ByteString conversion classes

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

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

diff --git a/src/Erebos/Storage/Backend.hs b/src/Erebos/Storage/Backend.hs
index 07bd63e..c802d95 100644
--- a/src/Erebos/Storage/Backend.hs
+++ b/src/Erebos/Storage/Backend.hs
@@ -18,10 +18,10 @@ module Erebos.Storage.Backend (
 
 import Control.Concurrent.MVar
 
-import Data.ByteArray qualified as BA
 import Data.ByteString (ByteString)
 import Data.HashTable.IO qualified as HT
 
+import ConvertByteString
 import Erebos.Object.Internal
 import Erebos.Storage.Internal
 
@@ -37,4 +37,4 @@ withStorageBackend Storage {..} f = f stBackend
 
 
 refDigestBytes :: RefDigest -> ByteString
-refDigestBytes = BA.convert
+refDigestBytes = toByteString
-- 
cgit v1.2.3