From 779c6fbd4d73b718ea64f22114f1d12463479d67 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Thu, 9 May 2019 21:59:26 +0200 Subject: Storage: fix loop error in zeroRef implementation --- src/Storage.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Storage.hs b/src/Storage.hs index a306206..25c7a75 100644 --- a/src/Storage.hs +++ b/src/Storage.hs @@ -116,9 +116,11 @@ instance BA.ByteArrayAccess Ref where zeroRef :: Storage -> Ref zeroRef s = Ref s h - where h = case digestFromByteString $ B.replicate (BA.length h) 0 of + where h = case digestFromByteString $ B.replicate (hashDigestSize $ digestAlgo h) 0 of Nothing -> error $ "Failed to create zero hash" Just h' -> h' + digestAlgo :: Digest a -> a + digestAlgo = undefined isZeroRef :: Ref -> Bool isZeroRef (Ref _ h) = all (==0) $ BA.unpack h -- cgit v1.2.3