From 70cdd96fb50dd48e0438f2b51f1322b5b5408e4d Mon Sep 17 00:00:00 2001
From: Andrew Martin <andrew.thaddeus@gmail.com>
Date: Fri, 28 Mar 2025 10:09:37 -0400
Subject: [PATCH] Use mutableByteArrayContentsShim
---
Data/Primitive/ByteArray.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Data/Primitive/ByteArray.hs b/Data/Primitive/ByteArray.hs
index 90f1b09..e1d4a8c 100644
--- a/Data/Primitive/ByteArray.hs
+++ b/Data/Primitive/ByteArray.hs
@@ -144,7 +144,7 @@ byteArrayAsForeignPtr (ByteArray arr#) = ForeignPtr (byteArrayContents# arr#) (P
-- the foreign pointer.
mutableByteArrayAsForeignPtr :: MutableByteArray RealWorld -> ForeignPtr Word8
{-# INLINE mutableByteArrayAsForeignPtr #-}
-mutableByteArrayAsForeignPtr (MutableByteArray arr#) = ForeignPtr (mutableByteArrayContents# arr#) (PlainPtr arr#)
+mutableByteArrayAsForeignPtr (MutableByteArray arr#) = ForeignPtr (mutableByteArrayContentsShim arr#) (PlainPtr arr#)
-- | Yield a pointer to the array's data. This operation is only safe on
-- /pinned/ byte arrays. Byte arrays allocated by 'newPinnedByteArray' and
--
GitLab