Correct object15 and object16

Author: andrewthad

CHANGELOG.md

@@ -1,5 +1,9 @@
 # Revision history for json-syntax
 
+## 0.2.6.1 -- 2023-07-28
+
+* Correct implementations of `object15` and `object16`.
+
 ## 0.2.6.0 -- 2023-07-26
 
 * Add `objectFromList` and `arrayFromList`.

json-syntax.cabal

@@ -1,6 +1,6 @@
 cabal-version: 2.2
 name: json-syntax
-version: 0.2.6.0
+version: 0.2.6.1
 synopsis: High-performance JSON parser and encoder
 description:
   This library parses JSON into a @Value@ type that is consistent with the

src/Json.hs

@@ -738,7 +738,7 @@ object15 :: Member -> Member -> Member -> Member -> Member -> Member -> Member -
          -> Member -> Member -> Member -> Member -> Member -> Member -> Member -> Value
 {-# inline object15 #-}
 object15 a b c d e f g h i j k l m n o = Object $ runSmallArrayST $ do
-  dst <- PM.newSmallArray 14 a
+  dst <- PM.newSmallArray 15 a
   PM.writeSmallArray dst 1 b
   PM.writeSmallArray dst 2 c
   PM.writeSmallArray dst 3 d
@@ -761,7 +761,7 @@ object16 :: Member -> Member -> Member -> Member -> Member -> Member -> Member -
          -> Value
 {-# inline object16 #-}
 object16 a b c d e f g h i j k l m n o p = Object $ runSmallArrayST $ do
-  dst <- PM.newSmallArray 14 a
+  dst <- PM.newSmallArray 16 a
   PM.writeSmallArray dst 1 b
   PM.writeSmallArray dst 2 c
   PM.writeSmallArray dst 3 d