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