diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-04-04 20:48:53 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-04-05 20:04:52 +0200 |
| commit | 752e28e05ecc6968a66be67819ba76a72aa53724 (patch) | |
| tree | 55d20ac86b7481d3369ddbea9d14cb02c91629f9 /src/Erebos/Storage/Internal.hs | |
| parent | ec42d7bb3ba7374b3d0afcd6e2c9e9b616679105 (diff) | |
Pairing: use ByteString instead of Bytes
Diffstat (limited to 'src/Erebos/Storage/Internal.hs')
| -rw-r--r-- | src/Erebos/Storage/Internal.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Erebos/Storage/Internal.hs b/src/Erebos/Storage/Internal.hs index ffe11e5..73bdc55 100644 --- a/src/Erebos/Storage/Internal.hs +++ b/src/Erebos/Storage/Internal.hs @@ -195,10 +195,10 @@ showRefDigest = showRefDigestParts >>> \(alg, hex) -> alg <> BC.pack "#" <> hex readRefDigest :: ByteString -> Maybe RefDigest readRefDigest x = case BC.split '#' x of [alg, dgst] | BA.convert alg == BC.pack "blake2" -> - refDigestFromByteString =<< readHex @ByteString dgst + refDigestFromByteString =<< readHex dgst _ -> Nothing -refDigestFromByteString :: ByteArrayAccess ba => ba -> Maybe RefDigest +refDigestFromByteString :: ByteString -> Maybe RefDigest refDigestFromByteString = fmap RefDigest . digestFromByteString hashToRefDigest :: BL.ByteString -> RefDigest |