From 7a9ef992afa96ed177ae9a4a67d302017ab73852 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Wed, 5 Apr 2023 22:03:43 +0200 Subject: Fix non-exhaustive pattern match warnings --- src/Storage/Internal.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/Storage/Internal.hs') diff --git a/src/Storage/Internal.hs b/src/Storage/Internal.hs index 85742a3..402d924 100644 --- a/src/Storage/Internal.hs +++ b/src/Storage/Internal.hs @@ -115,8 +115,11 @@ refDigest (Ref _ dgst) = dgst showRef :: Ref' c -> ByteString showRef = showRefDigest . refDigest +showRefDigestParts :: RefDigest -> (ByteString, ByteString) +showRefDigestParts x = (BC.pack "blake2", showHex x) + showRefDigest :: RefDigest -> ByteString -showRefDigest x = BC.pack "blake2#" `BC.append` showHex x +showRefDigest = showRefDigestParts >>> \(alg, hex) -> alg <> BC.pack "#" <> hex readRefDigest :: ByteString -> Maybe RefDigest readRefDigest x = case BC.split '#' x of @@ -213,7 +216,7 @@ ioLoadBytesFromStorage st dgst = loadCurrent st >>= refPath :: FilePath -> RefDigest -> FilePath refPath spath rdgst = intercalate "/" [spath, "objects", BC.unpack alg, pref, rest] - where [alg, dgst] = BC.split '#' $ showRefDigest rdgst + where (alg, dgst) = showRefDigestParts rdgst (pref, rest) = splitAt 2 $ BC.unpack dgst -- cgit v1.2.3