haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[DES] fix compat that don't have an instance of Bits for Bool

Browse Source
This commit is contained in:
Vincent Hanquez 2015-04-11 08:44:28 +01:00
parent b08c7a223c
commit b76a2c135a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Crypto/Cipher/DES/Primitive.hs
View File

@ -29,7 +29,7 @@ type Bits56 = [Bool]
type Bits64 = [Bool]
desXor :: [Bool] -> [Bool] -> [Bool]
desXor a b = zipWith xor a b
desXor a b = zipWith (/=) a b
desRotate :: [Bool] -> Int -> [Bool]
desRotate bits rot = drop rot' bits ++ take rot' bits