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

[Internal] add a way to index bytestring

Browse Source
This commit is contained in:
Vincent Hanquez 2015-04-11 16:02:31 +01:00
parent 428744083b
commit 4247520e91
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

@ -19,6 +19,7 @@ module Crypto.Internal.ByteArray
, byteArraySplit , byteArraySplit
, byteArrayXor , byteArrayXor
, byteArrayEq , byteArrayEq
, byteArrayIndex
, byteArrayConstEq , byteArrayConstEq
, byteArrayConcat , byteArrayConcat
, byteArrayToBS , byteArrayToBS
@ -96,6 +97,9 @@ byteArrayXor a b =
la = byteArrayLength a la = byteArrayLength a
lb = byteArrayLength b lb = byteArrayLength b
byteArrayIndex :: ByteArrayAccess a => a -> Int -> Word8
byteArrayIndex b i = unsafeDoIO $ withByteArray b $ \p -> peek (p `plusPtr` i)
byteArraySplit :: ByteArray bs => Int -> bs -> (bs, bs) byteArraySplit :: ByteArray bs => Int -> bs -> (bs, bs)
byteArraySplit n bs byteArraySplit n bs
| n <= 0 = (empty, bs) | n <= 0 = (empty, bs)