From 7bd02e894a231eb1a4a4fbc1a256e16d25f210cc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 10 Nov 2026 20:19:06 +0100
Subject: Avoid ByteArray import in Erebos.Pairing

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

(limited to 'src')

diff --git a/src/Erebos/Pairing.hs b/src/Erebos/Pairing.hs
index 602aea8..dfb5fae 100644
--- a/src/Erebos/Pairing.hs
+++ b/src/Erebos/Pairing.hs
@@ -15,7 +15,6 @@ import Control.Monad.Except
 import Control.Monad.Reader
 
 import Data.Bits
-import Data.ByteArray qualified as BA
 import Data.ByteString (ByteString)
 import Data.ByteString qualified as BS
 import Data.ByteString.Char8 qualified as BC
@@ -24,6 +23,7 @@ import Data.Maybe
 import Data.Typeable
 import Data.Word
 
+import ConvertByteString
 import Crypto
 import Erebos.Identity
 import Erebos.Network
@@ -198,7 +198,7 @@ nonceDigest idReq idRsp nonceReq nonceRsp = hashToRefDigest $ serializeObject $
 
 confirmationNumber :: RefDigest -> String
 confirmationNumber dgst =
-    case map fromIntegral $ BA.unpack dgst :: [Word32] of
+    case map fromIntegral $ BS.unpack $ toByteString dgst :: [ Word32 ] of
          (a:b:c:d:_) -> let str = show $ ((a `shift` 24) .|. (b `shift` 16) .|. (c `shift` 8) .|. d) `mod` (10 ^ len)
                          in replicate (len - length str) '0' ++ str
          _ -> ""
-- 
cgit v1.2.3