feat: add parse/parseExn

Author: glennsl

examples/DecodeExample.res

@@ -29,4 +29,4 @@ let data = `{
   ]
 }`
 
-let _ = data->Js.Json.parseExn->Json.decode(Decode.polyline)->Js.log
+let _ = data->Json.parseExn->Json.decode(Decode.polyline)->Js.log

src/Json.res

@@ -1,4 +1,17 @@
 module Encode = Json_Encode
 module Decode = Json_Decode
 
+exception ParseError(string)
+
 let decode = Decode.decode
+
+let parse = str =>
+  try Ok(str->Js.Json.parseExn) catch {
+  | Js.Exn.Error(ex) => Error(ex->Js.Exn.message->Js.Option.getWithDefault("Unknown error", _))
+  }
+
+let parseExn = str =>
+  try str->Js.Json.parseExn catch {
+  | Js.Exn.Error(ex) =>
+    raise(ParseError(ex->Js.Exn.message->Js.Option.getWithDefault("Unknown error", _)))
+  }

src/Json.resi

@@ -0,0 +1,9 @@
+module Encode = Json_Encode
+module Decode = Json_Decode
+
+exception ParseError(string)
+
+let decode: (Js.Json.t, Decode.t<'a>) => result<'a, string>
+
+let parse: string => result<Js.Json.t, string>
+let parseExn: string => Js.Json.t