feat(encode): remove Composite namespace

Author: glennsl

src/Json_Encode.res

@@ -5,22 +5,20 @@ external float: float => Js.Json.t = "%identity"
 external bool: bool => Js.Json.t = "%identity"
 external string: string => Js.Json.t = "%identity"
 
-module Composite = {
-  external jsonDict: Js.Dict.t<Js.Json.t> => Js.Json.t = "%identity"
-  external jsonArray: array<Js.Json.t> => Js.Json.t = "%identity"
-  external stringArray: array<string> => Js.Json.t = "%identity"
-  external intArray: array<int> => Js.Json.t = "%identity"
-  external floatArray: array<float> => Js.Json.t = "%identity"
-  external boolArray: array<bool> => Js.Json.t = "%identity"
-}
+external jsonDict: Js.Dict.t<Js.Json.t> => Js.Json.t = "%identity"
+external jsonArray: array<Js.Json.t> => Js.Json.t = "%identity"
+external stringArray: array<string> => Js.Json.t = "%identity"
+external intArray: array<int> => Js.Json.t = "%identity"
+external floatArray: array<float> => Js.Json.t = "%identity"
+external boolArray: array<bool> => Js.Json.t = "%identity"
 
 @val external null: Js.Json.t = "null"
 
-let array = (encode, arr) => arr->Js.Array2.map(encode)->Composite.jsonArray
+let array = (encode, arr) => arr->Js.Array2.map(encode)->jsonArray
 
 let list = (encode, l) =>
   switch l {
-  | list{} => Composite.jsonArray([])
+  | list{} => jsonArray([])
   | list{hd, ...tl} =>
     let arr = Array.make(l->List.length, hd->encode)
     let rec fill = (i, l) =>
@@ -30,10 +28,10 @@ let list = (encode, l) =>
         Array.unsafe_set(arr, i, hd->encode)
         fill(i + 1, tl)
       }
-    fill(1, tl)->Composite.jsonArray
+    fill(1, tl)->jsonArray
   }
 
-let object = props => props->Js.Dict.fromArray->Composite.jsonDict
+let object = props => props->Js.Dict.fromArray->jsonDict
 
 let option = (encode, opt) =>
   switch opt {
@@ -49,14 +47,14 @@ let withDefault = (default, encode, opt) =>
 
 let date = date => date->Js.Date.toJSONUnsafe->string
 
-let pair = (encodeA, encodeB, (a, b)) => [a->encodeA, b->encodeB]->Composite.jsonArray
-let tuple2 = (encodeA, encodeB, (a, b)) => [a->encodeA, b->encodeB]->Composite.jsonArray
+let pair = (encodeA, encodeB, (a, b)) => [a->encodeA, b->encodeB]->jsonArray
+let tuple2 = (encodeA, encodeB, (a, b)) => [a->encodeA, b->encodeB]->jsonArray
 let tuple3 = (encodeA, encodeB, encodeC, (a, b, c)) =>
-  [a->encodeA, b->encodeB, c->encodeC]->Composite.jsonArray
+  [a->encodeA, b->encodeB, c->encodeC]->jsonArray
 let tuple4 = (encodeA, encodeB, encodeC, encodeD, (a, b, c, d)) =>
-  [a->encodeA, b->encodeB, c->encodeC, d->encodeD]->Composite.jsonArray
+  [a->encodeA, b->encodeB, c->encodeC, d->encodeD]->jsonArray
 
-let dict = (encode, dict) => Js.Dict.map((. v) => encode(v), dict)->Composite.jsonDict
+let dict = (encode, dict) => Js.Dict.map((. v) => encode(v), dict)->jsonDict
 
 module Unsafe = {
   external object: {..} => Js.Json.t = "%identity"

src/Json_Encode.resi

@@ -19,14 +19,13 @@ let tuple3: (t<'a>, t<'b>, t<'c>, ('a, 'b, 'c)) => Js.Json.t
 let tuple4: (t<'a>, t<'b>, t<'c>, t<'d>, ('a, 'b, 'c, 'd)) => Js.Json.t
 let dict: (t<'a>, Js.Dict.t<'a>) => Js.Json.t
 
-module Composite: {
-  external jsonDict: Js.Dict.t<Js.Json.t> => Js.Json.t = "%identity"
-  external jsonArray: array<Js.Json.t> => Js.Json.t = "%identity"
-  external stringArray: array<string> => Js.Json.t = "%identity"
-  external intArray: array<int> => Js.Json.t = "%identity"
-  external floatArray: array<float> => Js.Json.t = "%identity"
-  external boolArray: array<bool> => Js.Json.t = "%identity"
-}
+// Short-hands for zero-cost composite primitives
+external jsonDict: Js.Dict.t<Js.Json.t> => Js.Json.t = "%identity"
+external jsonArray: array<Js.Json.t> => Js.Json.t = "%identity"
+external stringArray: array<string> => Js.Json.t = "%identity"
+external intArray: array<int> => Js.Json.t = "%identity"
+external floatArray: array<float> => Js.Json.t = "%identity"
+external boolArray: array<bool> => Js.Json.t = "%identity"
 
 module Unsafe: {
   external object: {..} => Js.Json.t = "%identity"