Added Json.objectFromList

Author: brianjosephmckeon

src/Json.hs

@@ -40,6 +40,7 @@ module Json
   , text
   , shortText
     -- * Object Construction
+  , objectFromList
   , object1
   , object2
   , object3
@@ -453,6 +454,10 @@ w16ToChar (GHC.Word.Compat.W16# w) = C# (chr# (word2Int# w))
 pattern (:->) :: ShortText -> Value -> Member
 pattern key :-> value = Member{key,value}
 
+-- | Construct a JSON object from a list of members.
+objectFromList :: [Member] -> Value
+objectFromList ms = Object $ PM.smallArrayFromList ms
+
 -- | Construct a JSON object with one member.
 object1 :: Member -> Value
 {-# inline object1 #-}

test/Main.hs

@@ -123,6 +123,26 @@ tests = testGroup "Tests"
         @=?
         BChunks.concat (Builder.run 4 (J.encode (J.String "It\2019s over now")))
     ]
+  , testGroup "objectFromList"
+    [ THU.testCase "empty object" $
+        J.objectFromList []
+        @=?
+        J.emptyObject
+    , THU.testCase "one member" $
+        J.objectFromList [J.Member {J.key = "one", J.value = J.String "value1"}]
+        @=?
+        J.object1 J.Member {J.key = "one", J.value = J.String "value1"}
+    , THU.testCase "two members" $ do
+        let members = [
+              J.Member {J.key = "1", J.value = J.String "1"},
+              J.Member {J.key = "2", J.value = J.String "2"}
+              ]
+        J.objectFromList members
+        @=?
+        J.object2
+          J.Member {J.key = "1", J.value = J.String "1"}
+          J.Member {J.key = "2", J.value = J.String "2"}
+    ]
   , testGroup "smile-fragment"
     [ THU.testCase "biginteger-65535" $
         let enc = BChunks.concat (Builder.run 128 (Smile.encodeBigInteger 65535))