Temporarily vendor bs-json (#324)

Master has some module resolution trouble (deps...)

Author: chenglou

bsconfig.json

@@ -6,7 +6,6 @@
   },
   "bs-dependencies": [
     "@rescript/react",
-    "@glennsl/bs-json",
     "@ryyppy/rescript-promise"
   ],
   "ppx-flags": [],

package-lock.json

@@ -8,7 +8,6 @@
     "node": ">=12.x"
   },
   "dependencies": {
-    "@glennsl/bs-json": "^3.0.0",
     "@mdx-js/loader": "^1.5.5",
     "@next/mdx": "^8.1.0",
     "@rescript/react": "^0.10.1",

package.json

@@ -5,7 +5,7 @@ import * as Js_dict from "rescript/lib/es6/js_dict.js";
 import * as Belt_Int from "rescript/lib/es6/belt_Int.js";
 import * as Belt_List from "rescript/lib/es6/belt_List.js";
 import * as Belt_Option from "rescript/lib/es6/belt_Option.js";
-import * as Json_decode from "@glennsl/bs-json/src/Json_decode.js";
+import * as Json_decode from "../vendor/Json_decode.mjs";
 import * as Caml_js_exceptions from "rescript/lib/es6/caml_js_exceptions.js";
 
 function toString(t) {

src/bindings/RescriptCompilerApi.mjs

@@ -3,7 +3,7 @@
 import * as Js_null from "rescript/lib/es6/js_null.js";
 import * as Belt_Array from "rescript/lib/es6/belt_Array.js";
 import * as Belt_Option from "rescript/lib/es6/belt_Option.js";
-import * as Json_decode from "@glennsl/bs-json/src/Json_decode.js";
+import * as Json_decode from "../vendor/Json_decode.mjs";
 import * as Caml_exceptions from "rescript/lib/es6/caml_exceptions.js";
 import * as Caml_js_exceptions from "rescript/lib/es6/caml_js_exceptions.js";
 import Blog_authorsMjs from "../../data/blog_authors.mjs";

src/common/BlogFrontmatter.mjs

@@ -1,7 +1,7 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
 import * as Js_null from "rescript/lib/es6/js_null.js";
-import * as Json_decode from "@glennsl/bs-json/src/Json_decode.js";
+import * as Json_decode from "../vendor/Json_decode.mjs";
 import * as Caml_js_exceptions from "rescript/lib/es6/caml_js_exceptions.js";
 
 function decode(json) {

src/common/DocFrontmatter.mjs

@@ -11,7 +11,7 @@ import * as Constants from "../common/Constants.mjs";
 import * as DocSearch from "./DocSearch.mjs";
 import * as Belt_Array from "rescript/lib/es6/belt_Array.js";
 import * as Caml_option from "rescript/lib/es6/caml_option.js";
-import * as ReactDOMStyle from "@rescript/react/src/ReactDOMStyle.js";
+import * as ReactDOMStyle from "@rescript/react/src/ReactDOMStyle.mjs";
 import * as VersionSelect from "./VersionSelect.mjs";
 
 var link = "no-underline block text-inherit hover:cursor-pointer hover:text-fire-30 text-gray-40 mb-px";

src/components/Navigation.mjs

@@ -0,0 +1,55 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Js_exn from "rescript/lib/es6/js_exn.js";
+import * as Caml_option from "rescript/lib/es6/caml_option.js";
+import * as Caml_exceptions from "rescript/lib/es6/caml_exceptions.js";
+import * as Caml_js_exceptions from "rescript/lib/es6/caml_js_exceptions.js";
+
+var ParseError = /* @__PURE__ */Caml_exceptions.create("Json.ParseError");
+
+function parse(s) {
+  try {
+    return Caml_option.some(JSON.parse(s));
+  }
+  catch (exn){
+    return ;
+  }
+}
+
+function parseOrRaise(s) {
+  try {
+    return JSON.parse(s);
+  }
+  catch (raw_e){
+    var e = Caml_js_exceptions.internalToOCamlException(raw_e);
+    if (e.RE_EXN_ID === Js_exn.$$Error) {
+      var m = e._1.message;
+      var message = m !== undefined ? m : "Unknown error";
+      throw {
+            RE_EXN_ID: ParseError,
+            _1: message,
+            Error: new Error()
+          };
+    }
+    throw e;
+  }
+}
+
+var Decode;
+
+var Encode;
+
+function stringify(prim) {
+  return JSON.stringify(prim);
+}
+
+export {
+  Decode ,
+  Encode ,
+  ParseError ,
+  parse ,
+  parseOrRaise ,
+  stringify ,
+  
+}
+/* No side effect */

src/vendor/Json.mjs

@@ -0,0 +1,19 @@
+module Decode = Json_decode
+module Encode = Json_encode
+
+exception ParseError of string
+
+let parse s =
+  try Some (Js.Json.parseExn s) with
+  | _ -> None
+
+let parseOrRaise s =
+  try Js.Json.parseExn s with
+  | Js.Exn.Error e ->
+    let message =
+      match Js.Exn.message e with
+      | Some m  -> m
+      | None    -> "Unknown error"
+    in raise @@ ParseError message
+
+external stringify : Js.Json.t -> string = "JSON.stringify" [@@bs.val]

src/vendor/Json.ml

@@ -0,0 +1,116 @@
+(** Efficient JSON handling
+This module has four aspects to it:
+- Parsing, which turns a JSON string into an encoded JSON data structure
+- Stringificaiton, which produces a JSON string from an encoded JSON data structure
+- Encoding, which is the process of construction a JSON data structure
+- Decoding, which is the process of deconstructing a JSON data structure
+{3 Parsing}
+{! parse} and {! parseOrRaise} will both (try to) parse a JSON string into a JSON
+data structure ({! Js.Json.t}), but behaves differently when encountering a
+parse error. [parseOrRaise] will raise a [ParseError], while [parse] will return
+a [Js.Json.t result] indicating whether or not the parsing succeeded. There's
+not much more to it: [string] in, [Js.Json.t] out.
+The parsed result, and encoded JSON data structure, then needs to be decoded to
+actually be usable. See {!section:Decoding} below.
+{3 Stringification}
+Stringification is the exact reverse of parsing. {! stringify} and {! stringifyAny}
+both technically do the same thing, but where [stringifyAny] will take any value
+and try to do its best with it, retuning a [string option], [stringify] on the
+other hand uses the type system to guarantee success, but requires that the data
+has been encoded in a JSON data structure first. See {!section:Encoding} below.
+{3 Encoding}
+Encoding creates a JSON data structure which can stringified directly with
+{! stringify} or passed to other APIs requiring a typed JSON data structure. Or
+you could just go straight to decoding it again, if that's your thing. Encoding
+functions are in the {! Encode} module.
+{3 Decoding}
+Decoding is a more complex process, due to the highly dynamic nature of JSON
+data structures. The {! Decode} module provides decoder combinators that can
+be combined to create complex composite decoders for any _known_ JSON data
+structure. It allows for custom decoders to produce user-defined types.
+
+@example {[
+(* Parsing a JSON string using Json.parse *)
+let arrayOfInts str
+  match Json.parse str with
+  | Some value ->
+    match Json.Decode.(array int value)
+    | Ok arr -> arr
+    | Error _ -> []
+  | None -> failWith "Unable to parse JSON"
+
+(* prints `[3, 2, 1]` *)
+let _ = Js.log (arrayOfInts "[1, 2, 3]" |> Js.Array.reverse)
+]}
+
+@example {[
+(* Stringifying a value using Json.stringify *)
+
+(* prints `null` *)
+let _ =
+  Json.stringify (Encode.int 42)
+  |> Js.log
+]}
+
+@example {[
+(* Encoding a JSON data structure using Json.Encode *)
+
+(* prints ["foo", "bar"] *)
+let _ =
+  [| "foo", "bar" |]
+  |> Json.Encode.stringArray
+  |> Json.stringify
+  |> Js.log
+
+(* prints ["foo", "bar"] *)
+let _ =
+  [| "foo", "bar" |]
+  |> Js.Array.map Encode.int
+  |> Json.Encode.jsonArray
+  |> Json.stringify
+  |> Js.log
+]}
+
+@example {[
+(* Decoding a fixed JSON data structure using Json.Decode *)
+let mapJsonObjectString f decoder encoder str =
+  match Json.parse str with
+  | Ok json ->
+    match Json.Decode.(dict decoder json) with
+    | Ok dict ->
+      dict |> Js.Dict.map f
+           |> Js.Dict.map encoder
+           |> Json.Encode.dict
+           |> Json.stringify
+    | Error _ -> []
+  | Error _ -> []
+
+let sum ns =
+  Array.fold_left (+) 0
+
+(* prints `{ "foo": 6, "bar": 24 }` *)
+let _ =
+  Js.log (
+    mapJsonObjectString sun Json.Decode.(array int) Json.Encode.int {|
+      {
+        "foo": [1, 2, 3],
+        "bar": [9, 8, 7]
+      }
+    |} 
+  )
+]}
+*) 
+
+module Decode = Json_decode
+module Encode = Json_encode
+
+exception ParseError of string
+
+val parse: string -> Js.Json.t option
+(** [parse s] returns [Some json] if s is a valid json string, [None] otherwise *)
+
+val parseOrRaise: string -> Js.Json.t
+(** [parse s] returns a [Js.Json.t] if s is a valid json string, raises [ParseError] otherwise *)
+
+val stringify: Js.Json.t -> string
+(** [stringify json] returns the [string] representation of the given [Js.Json.t] value *)