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

remove unnecessary cast in DES

Browse Source
This commit is contained in:
Vincent Hanquez 2015-04-08 20:41:06 +01:00
parent b74f7619e4
commit 65780e38cb
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/Serialization.hs
View File

@ -86,7 +86,7 @@ unblockify blocks = byteArrayAllocAndFreeze (nbBlocks * 8) $ \initPtr -> pokeTo
pokeTo ptr (Block x:xs) = poke ptr (toBE64 x) >> pokeTo (ptr `plusPtr` 8) xs pokeTo ptr (Block x:xs) = poke ptr (toBE64 x) >> pokeTo (ptr `plusPtr` 8) xs
toBS :: Block -> B.ByteString toBS :: Block -> B.ByteString
toBS (Block w) = byteArrayAllocAndFreeze 8 $ \ptr -> poke (castPtr ptr) (toBE64 w) toBS (Block w) = byteArrayAllocAndFreeze 8 $ \ptr -> poke ptr (toBE64 w)
{- {-
blockify s | B.null s = [] blockify s | B.null s = []
| otherwise = let (s1,s2) = B.splitAt 8 s | otherwise = let (s1,s2) = B.splitAt 8 s