From 6daa9b3a5df010bf0f579c6e82c64924a77387cc Mon Sep 17 00:00:00 2001
From: Adithya Kumar <adithya@composewell.com>
Date: Sun, 20 Aug 2023 17:26:38 +0530
Subject: [PATCH] Test

---
 core/src/Streamly/Internal/Data/Serialize/RecordTH.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/core/src/Streamly/Internal/Data/Serialize/RecordTH.hs b/core/src/Streamly/Internal/Data/Serialize/RecordTH.hs
index 7eb541c7b..e5d8a2a11 100644
--- a/core/src/Streamly/Internal/Data/Serialize/RecordTH.hs
+++ b/core/src/Streamly/Internal/Data/Serialize/RecordTH.hs
@@ -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