From da2be3281af03213e4a948448ddbc6c63d22b823 Mon Sep 17 00:00:00 2001
From: Andrew Martin <andrew.thaddeus@gmail.com>
Date: Fri, 18 Oct 2019 13:59:45 -0400
Subject: [PATCH] correct pragma controlling inlining behavior of JSON text
 encoding function

---
 src/Data/ByteArray/Builder.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Data/ByteArray/Builder.hs b/src/Data/ByteArray/Builder.hs
index 7b187e0..18614c0 100644
--- a/src/Data/ByteArray/Builder.hs
+++ b/src/Data/ByteArray/Builder.hs
@@ -404,7 +404,7 @@ asWord8s (PrimArray x) = PrimArray x
 -- Internal function. Precondition, the referenced slice of the
 -- byte sequence is UTF-8 encoded text.
 slicedUtf8TextJson :: ByteArray# -> Int# -> Int# -> Builder
-{-# inline slicedUtf8TextJson #-}
+{-# noinline slicedUtf8TextJson #-}
 slicedUtf8TextJson !src# !soff0# !slen0# = fromFunction reqLen $ \dst doff0 -> do
   PM.writeByteArray dst doff0 (c2w '"')
   let go !soff !slen !doff = if slen > 0