Commits

camlspotter  committed a7b0a42

update of meta_conv

  • Participants
  • Parent commits 9a755b8

Comments (0)

Files changed (1)

File lib/json_conv.ml

   | _ -> None) d
 
 let option_of_json d = generic_option_of (function
-  | Null -> true
-  | _ -> false) d
+  | Null -> Some None
+  | v -> Some (Some v)) d
 
 let lazy_t_of_json f = generic_lazy_t_of (fun e -> raise (Error e)) f
 let mc_lazy_t_of_json = generic_mc_lazy_t_of