diff --git a/src/Tahoe/CHK/Encrypt.hs b/src/Tahoe/CHK/Encrypt.hs index bf46051b4f9b8ac57c35c4a55c5d7c96d90809ea..bb8374288e679dc312db3e54d796b091858640ee 100644 --- a/src/Tahoe/CHK/Encrypt.hs +++ b/src/Tahoe/CHK/Encrypt.hs @@ -32,8 +32,6 @@ encryptLazy cipher lbs = LBS.concat . (LBS.fromStrict <$>) $ zipWith (ctrCombine takeChunk "" = Nothing takeChunk xs = Just . LBS.splitAt (fromIntegral workingBlockSize) $ xs --- LBS.fromStrict (encrypt cipher (LBS.toStrict lbs)) - -- | AES128-CTR decrypt a byte string in the manner used by CHK. decrypt :: (BlockCipher cipher, ByteArray ba) => cipher -> ba -> ba decrypt = encrypt