add back classify module

Author: jchavarri

src/melange_json.ml

@@ -1,6 +1,8 @@
 type t = Js.Json.t
 type json = t
 
+module Classify = Classify
+
 let to_json t = t
 let of_json t = t
 
@@ -414,5 +416,3 @@ let parseOrRaise s =
     raise @@ ParseError message
 
 external stringify : Js.Json.t -> string = "JSON.stringify"
-
-let classify = Classify.classify

src/melange_json.mli

@@ -411,13 +411,15 @@ val parse : string -> json option [@@deprecated "Use `of_string` instead"]
 val parseOrRaise : string -> json [@@deprecated "Use `of_string` instead"]
 val stringify : json -> string [@@deprecated "Use `to_string` instead"]
 
-val classify :
-  json ->
-  [ `Assoc of (string * json) list
-  | `Bool of bool
-  | `Float of float
-  | `Int of int
-  | `List of json list
-  | `Null
-  | `String of string ]
-(** Classify a JSON value into a variant type. *)
+module Classify : sig
+  val classify :
+    json ->
+    [ `Assoc of (string * json) list
+    | `Bool of bool
+    | `Float of float
+    | `Int of int
+    | `List of json list
+    | `Null
+    | `String of string ]
+  (** Classify a JSON value into a variant type. *)
+end

src/native/melange_json.ml

@@ -6,6 +6,8 @@ type t = Yojson.Basic.t
 type json = t
 (** Defined for convenience. *)
 
+module Classify = Classify
+
 let to_string t = Yojson.Basic.to_string t
 
 include Errors