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