feat: add safe object encoder

Author: glennsl

src/Json_Decode.resi

@@ -22,6 +22,7 @@ let string: t<string>
 
 let array: t<'a> => t<array<'a>>
 let list: t<'a> => t<list<'a>>
+let object: (fieldDecoders => 'a) => t<'a>
 let option: t<'a> => t<option<'a>>
 
 let date: t<Js.Date.t>
@@ -31,7 +32,6 @@ let tuple3: (t<'a>, t<'b>, t<'c>) => t<('a, 'b, 'c)>
 let tuple4: (t<'a>, t<'b>, t<'c>, t<'d>) => t<('a, 'b, 'c, 'd)>
 let dict: t<'a> => t<Js.Dict.t<'a>>
 let field: (string, t<'a>) => t<'a>
-let object: (fieldDecoders => 'a) => t<'a>
 
 let oneOf: array<t<'a>> => t<'a>
 let map: (t<'a>, (. 'a) => 'b) => t<'b>

src/Json_Encode.res

@@ -33,6 +33,8 @@ let list = (encode, l) =>
     fill(1, tl)->Composite.jsonArray
   }
 
+let object = props => props->Js.Dict.fromArray->Composite.jsonDict
+
 let option = (encode, opt) =>
   switch opt {
   | None => null

src/Json_Encode.resi

@@ -8,6 +8,7 @@ external string: string => Js.Json.t = "%identity"
 @val external null: Js.Json.t = "null"
 let array: t<'a> => t<array<'a>>
 let list: t<'a> => t<list<'a>>
+let object: array<(string, Js.Json.t)> => Js.Json.t
 let option: t<'a> => t<option<'a>>
 let withDefault: (Js.Json.t, t<'a>, option<'a>) => Js.Json.t