pb_format_util.ml
ocaml-protoc
ocaml-protoc.compiler-lib
1 2 3 4 5 6 7 8 9 open Format (* Not available in 4.03 *) let pp_print_option ?(none = fun _ () -> ()) pp_v ppf = function | None -> none ppf () | Some v -> pp_v ppf v let pp_none ppf () = fprintf ppf "(None)"
1 2 3 4 5 6 7 8 9
open Format (* Not available in 4.03 *) let pp_print_option ?(none = fun _ () -> ()) pp_v ppf = function | None -> none ppf () | Some v -> pp_v ppf v let pp_none ppf () = fprintf ppf "(None)"