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

align dollar sign

Browse Source
This commit is contained in:
Vincent Hanquez 2015-02-15 00:14:07 +00:00
parent 41361968f6
commit effca93970
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/Salsa.hs
View File

@ -53,7 +53,7 @@ initialize nbRounds key nonce
| otherwise = unsafePerformIO $ do | otherwise = unsafePerformIO $ do
stPtr <- createSecureMem 64 $ \stPtr -> stPtr <- createSecureMem 64 $ \stPtr ->
withBytePtr nonce $ \noncePtr -> withBytePtr nonce $ \noncePtr ->
withBytePtr key $ \keyPtr -> withBytePtr key $ \keyPtr ->
ccryptonite_salsa_init (castPtr stPtr) kLen keyPtr nonceLen noncePtr ccryptonite_salsa_init (castPtr stPtr) kLen keyPtr nonceLen noncePtr
return $ State nbRounds stPtr B.empty return $ State nbRounds stPtr B.empty
where kLen = byteableLength key where kLen = byteableLength key