Commits

camlspotter  committed 0bc6e93

module change

  • Participants
  • Parent commits 132ad72

Comments (0)

Files changed (1)

 open Common
 
 open Tiny_json
-open Meta_conv.Types.Result.Open (* I use >>= only for Result here *)
 open Json_conv  (* for conv(json) *)
 open Ocaml_conv (* for conv(ocaml) *)
-
+open Meta_conv.Result.Open
 
 (* field of type Json.t mc_leftovers is automatically handled for Json, but not for ocaml *)
 type 'target mc_leftovers = (string * 'target) list with conv(ocaml)
     try match o with
     | Ocaml.String s -> `Ok (Json.parse s)
     | _ -> failwith "Ocaml.String expected"
-    with e -> `Error (Meta_conv.Types.Error.Deconstruction_error e, o)
+    with e -> `Error (Meta_conv.Error.Deconstruction_error e, o)
 
   let parse s = try `Ok (parse s) with e -> `Error (`Json_parse e)
 end
     | `Json_parse exn -> fprintf ppf "Error at Json parse: %s@." (Printexc.to_string exn)
     | `Other exn      -> fprintf ppf "Error: %s@." (Printexc.to_string exn)
     | `Json_conv ((_,v) as e) -> 
-        (* CR jfuruse: This is bit strange. Meta_conv.Types.Error.format should print [v] too? *)
+        (* CR jfuruse: This is bit strange. Meta_conv.Error.format should print [v] too? *)
         Format.eprintf "%a@.Error input: %s@." 
-          (Meta_conv.Types.Error.format (fun _ _ -> ())) e
+          (Meta_conv.Error.format (fun _ _ -> ())) e
           (Json.show v)
 end