Add object(9|10|11|12)

Author: andrewthad

CHANGELOG.md

@@ -1,5 +1,9 @@
 # Revision history for json-syntax
 
+## 0.1.3.0 -- 2021-??-??
+
+* Add `object(9|10|11|12)` as convenience helpers for construction.
+
 ## 0.1.2.0 -- 2020-11-18
 
 * Add infix pattern synonym for `Member`.

json-syntax.cabal

@@ -1,6 +1,6 @@
 cabal-version: 2.2
 name: json-syntax
-version: 0.1.2.0
+version: 0.1.3.0
 synopsis: High-performance JSON parser and encoder
 description:
   This library parses JSON into a @Value@ type that is consistent with the
@@ -29,7 +29,7 @@ library
   exposed-modules: Json
   build-depends:
     , array-builder >=0.1 && <0.2
-    , array-chunks >=0.1.2 && <0.2
+    , array-chunks >=0.1.3 && <0.2
     , base >=4.12 && <5
     , bytebuild >=0.3.4 && <0.4
     , byteslice >=0.1.3 && <0.3

src/Json.hs

@@ -30,6 +30,10 @@ module Json
   , object6
   , object7
   , object8
+  , object9
+  , object10
+  , object11
+  , object12
   ) where
 
 import Prelude hiding (Bool(True,False))
@@ -469,7 +473,31 @@ object7 :: Member -> Member -> Member -> Member -> Member -> Member -> Member ->
 {-# inline object7 #-}
 object7 a b c d e f g = Object (Chunks.septupleton a b c d e f g)
 
--- | Construct a JSON object with eight members.
+-- | Construct a JSON object with nine members.
 object8 :: Member -> Member -> Member -> Member -> Member -> Member -> Member -> Member -> Value
 {-# inline object8 #-}
 object8 a b c d e f g h = Object (Chunks.octupleton a b c d e f g h)
+
+-- | Construct a JSON object with nine members.
+object9 :: Member -> Member -> Member -> Member -> Member -> Member -> Member -> Member -> Member
+        -> Value
+{-# inline object9 #-}
+object9 a b c d e f g h i = Object (Chunks.nonupleton a b c d e f g h i)
+
+-- | Construct a JSON object with ten members.
+object10 :: Member -> Member -> Member -> Member -> Member -> Member -> Member -> Member 
+         -> Member -> Member -> Value
+{-# inline object10 #-}
+object10 a b c d e f g h i j = Object (Chunks.decupleton a b c d e f g h i j)
+
+-- | Construct a JSON object with eleven members.
+object11 :: Member -> Member -> Member -> Member -> Member -> Member -> Member -> Member
+         -> Member -> Member -> Member -> Value
+{-# inline object11 #-}
+object11 a b c d e f g h i j k = Object (Chunks.undecupleton a b c d e f g h i j k)
+
+-- | Construct a JSON object with eleven members.
+object12 :: Member -> Member -> Member -> Member -> Member -> Member -> Member -> Member
+         -> Member -> Member -> Member -> Member -> Value
+{-# inline object12 #-}
+object12 a b c d e f g h i j k l = Object (Chunks.duodecupleton a b c d e f g h i j k l)