Use PlainForeignPtr instead of LiteralPtr for literals

andrewthad · Nov 14, 2019 · 25a6db8 · 25a6db8
1 parent cdc5d36
commit 25a6db8
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Data/ByteString/Internal.hs b/Data/ByteString/Internal.hs
@@ -273,7 +273,10 @@ unsafePackAddress addr# = do
 unsafePackLiteral :: Addr# -> ByteString
 unsafePackLiteral addr# =
 #if __GLASGOW_HASKELL__ >= 809
-  PS (ForeignPtr addr# LiteralPtr) 0 (I# (cstringLength# addr#))
+  PS
+    (accursedUnutterablePerformIO (newForeignPtr_ (Ptr addr#)))
+    0
+    (I# (cstringLength# addr#))
 #else
   let len = accursedUnutterablePerformIO (c_strlen (Ptr addr#))
    in PS (accursedUnutterablePerformIO (newForeignPtr_ (Ptr addr#))) 0 (fromIntegral len)