Commits

camlspotter committed cf27f48 Merge

Comments (0)

Files changed (2)

   | Null -> Some None
   | v -> Some (Some v)) d
 
+let json_of_mc_option = json_of_option
+let mc_option_of_json = option_of_json
+
 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 
 

lib/json_conv.mli

 val lazy_t_of_json    : 'a decoder -> 'a lazy_t decoder
 val mc_lazy_t_of_json : 'a decoder -> ('a, Json.t) mc_lazy_t decoder
 
+val json_of_mc_option : 'a encoder -> 'a mc_option encoder
+val mc_option_of_json : 'a decoder -> 'a mc_option decoder
+
 val json_of_mc_fields : ('a -> Json.t) -> (string * 'a) list -> Json.t
 val mc_fields_of_json : 'a decoder -> (string * 'a) list decoder