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

add a LE64 method

Browse Source
This commit is contained in:
Vincent Hanquez 2015-04-08 20:41:57 +01:00
parent 21c4c1befb
commit 7e6f570e49
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Crypto/Internal/ByteArray.hs
View File

@ -22,6 +22,7 @@ module Crypto.Internal.ByteArray
, byteArrayToBS , byteArrayToBS
, byteArrayFromBS , byteArrayFromBS
, byteArrayToW64BE , byteArrayToW64BE
, byteArrayToW64LE
) where ) where
import Control.Applicative ((<$>)) import Control.Applicative ((<$>))
@ -127,3 +128,6 @@ byteArrayFromBS bs = byteArrayCopyAndFreeze bs (\_ -> return ())
byteArrayToW64BE :: ByteArrayAccess bs => bs -> Int -> Word64 byteArrayToW64BE :: ByteArrayAccess bs => bs -> Int -> Word64
byteArrayToW64BE bs ofs = unsafeDoIO $ withByteArray bs $ \p -> fromBE64 <$> peek (p `plusPtr` ofs) byteArrayToW64BE bs ofs = unsafeDoIO $ withByteArray bs $ \p -> fromBE64 <$> peek (p `plusPtr` ofs)
byteArrayToW64LE :: ByteArrayAccess bs => bs -> Int -> Word64
byteArrayToW64LE bs ofs = unsafeDoIO $ withByteArray bs $ \p -> fromLE64 <$> peek (p `plusPtr` ofs)