From b76a2c135a6df242bfb89cbca6aef8fdd459652b Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Sat, 11 Apr 2015 08:44:28 +0100 Subject: [PATCH] [DES] fix compat that don't have an instance of Bits for Bool --- Crypto/Cipher/DES/Primitive.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Crypto/Cipher/DES/Primitive.hs b/Crypto/Cipher/DES/Primitive.hs index 0abb35a..18a623c 100644 --- a/Crypto/Cipher/DES/Primitive.hs +++ b/Crypto/Cipher/DES/Primitive.hs @@ -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