@@ -4,7 +4,7 @@ type rec t = Js.Json.t =
44 | @as (null ) Null
55 | String (string )
66 | Number (float )
7- | Object (Dict . t <t >)
7+ | Object (dict <t >)
88 | Array (array <t >)
99
1010@unboxed
@@ -47,15 +47,15 @@ module Classify = {
4747 | Null
4848 | String (string )
4949 | Number (float )
50- | Object (Dict . t <t >)
50+ | Object (dict <t >)
5151 | Array (array <t >)
5252
5353 @val external _internalClass : 'a => string = "Object.prototype.toString.call"
5454 external _asBool : 'a => bool = "%identity"
5555 external _asString : 'a => string = "%identity"
5656 external _asFloat : 'a => float = "%identity"
5757 external _asArray : 'a => array <Js .Json .t > = "%identity"
58- external _asDict : 'a => Dict . t <Js .Json .t > = "%identity"
58+ external _asDict : 'a => dict <Js .Json .t > = "%identity"
5959
6060 let classify = value => {
6161 switch _internalClass (value ) {
@@ -75,7 +75,7 @@ module Encode = {
7575 external string : string => t = "%identity"
7676 external int : int => t = "%identity"
7777 external float : float => t = "%identity"
78- external object : Dict . t <t > => t = "%identity"
78+ external object : dict <t > => t = "%identity"
7979 external array : array <t > => t = "%identity"
8080}
8181
@@ -86,7 +86,7 @@ module Decode = {
8686 let float = (json : t ) => Type .typeof (json ) === #number ? Some ((Obj .magic (json ): float )) : None
8787 let object = (json : t ) =>
8888 if Type .typeof (json ) === #object && ! Array .isArray (json ) && ! (Obj .magic (json ) === Null .null ) {
89- Some ((Obj .magic (json ): Dict . t <t >))
89+ Some ((Obj .magic (json ): dict <t >))
9090 } else {
9191 None
9292 }
0 commit comments