diff --git a/test/Generators.hs b/test/Generators.hs index b295b6268d815c6a4bf34d90eb3282f25faf5077..18125c6b82b5e322e15489eb3e736f699d3d038e 100644 --- a/test/Generators.hs +++ b/test/Generators.hs @@ -29,7 +29,7 @@ import qualified Hedgehog.Range as Range import Tahoe.CHK.Capability (Reader, fingerprint, verifier) import Tahoe.CHK.Crypto (storageIndexLength) import Tahoe.CHK.Merkle (MerkleTree, leafHashes, makeTreePartial) -import Tahoe.CHK.SHA256d (Digest' (..), SHA256d, toBytes, zero) +import Tahoe.CHK.SHA256d (Digest' (..), SHA256d, zero) import Tahoe.CHK.Server (StorageServerAnnouncement (StorageServerAnnouncement)) import Tahoe.CHK.Share (Crypttext, Share (..), blocks, crypttextHashTree, neededHashes) import Tahoe.CHK.Types (Parameters (..), Required, ShareNum, StorageIndex, Total) @@ -229,7 +229,7 @@ applyShareBitFlips (ShareTreeLeafBitFlips shareFlips) = first (zipWith flipLeave flipLeaves leafFlips share = share{_neededHashes = zipWith flipBits (view neededHashes share) leafFlips} flipBits :: forall hash a. HashAlgorithm hash => (a, Digest' hash) -> BS.ByteString -> (a, Digest' hash) - flipBits (a, x) y = (a, digestFromByteStringPartial $ BA.xor @BS.ByteString @BS.ByteString @BS.ByteString (toBytes x) y) + flipBits (a, x) y = (a, digestFromByteStringPartial $ BA.xor x y) applyShareBitFlips (BlockBitFlips blockFlips) = first (zipWith flipBlocks blockFlips) where flipBlocks :: [BS.ByteString] -> Share -> Share