mirror of
https://github.com/composewell/streamly.git
synced 2024-09-11 11:37:22 +03:00
Test
This commit is contained in:
parent
94a0638ca3
commit
6daa9b3a5d
@ -206,8 +206,7 @@ checkTagRF ::
|
|||||||
-> MutableByteArray
|
-> MutableByteArray
|
||||||
-> IO (Int, Maybe a)
|
-> IO (Int, Maybe a)
|
||||||
checkTagRF tagVal tagLen finalOff backOff tagOff arr = do
|
checkTagRF tagVal tagLen finalOff backOff tagOff arr = do
|
||||||
res <- Array.asPtrUnsafe slice $ \ptr -> memcmp1 ptr tagVal tagLen
|
case memcmpCStr tagVal arr tagOff tagLen of
|
||||||
case res of
|
|
||||||
EQ ->
|
EQ ->
|
||||||
let newOff = afterTagOff + 4
|
let newOff = afterTagOff + 4
|
||||||
in fmap Just <$> deserialize newOff arr
|
in fmap Just <$> deserialize newOff arr
|
||||||
|
Loading…
Reference in New Issue
Block a user