diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Erebos/Pairing.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 _ -> "" |