diff options
Diffstat (limited to 'Crypto/Cipher/Cast5.hs')
-rw-r--r-- | Crypto/Cipher/Cast5.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Crypto/Cipher/Cast5.hs b/Crypto/Cipher/Cast5.hs index dfd30c7..da9d109 100644 --- a/Crypto/Cipher/Cast5.hs +++ b/Crypto/Cipher/Cast5.hs | |||
@@ -83,7 +83,7 @@ instance Cast5Bits size => Serialize (Cast5 size) where | |||
83 | 83 | ||
84 | -- instance Cast5Bits size => BlockCipher (Cast5 size) where | 84 | -- instance Cast5Bits size => BlockCipher (Cast5 size) where |
85 | blockSize :: forall size. Cast5Bits size => Tagged (Cast5 size) Int | 85 | blockSize :: forall size. Cast5Bits size => Tagged (Cast5 size) Int |
86 | blockSize = Tagged 64 | 86 | blockSize = Tagged 64 -- bits |
87 | 87 | ||
88 | encryptBlock :: forall size. Cast5Bits size => Cast5 size -> S.ByteString -> S.ByteString | 88 | encryptBlock :: forall size. Cast5Bits size => Cast5 size -> S.ByteString -> S.ByteString |
89 | encryptBlock (Cast5 subkeys fs _ _ key) = | 89 | encryptBlock (Cast5 subkeys fs _ _ key) = |