Add Format.pp_print_result.

ocaml · Aug 6, 2018 · e757037 · e757037
1 parent e4869ac
commit e757037
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/stdlib/format.ml b/stdlib/format.ml
@@ -1225,6 +1225,10 @@ let pp_print_text ppf s =
   done;
   if !left <> len then flush ()
 
+let pp_print_result ~ok ~error ppf = function
+| Ok v -> ok ppf v
+| Error e -> error ppf e
+
  (**************************************************************)
 
 let compute_tag output tag_acc =

diff --git a/stdlib/format.mli b/stdlib/format.mli
@@ -949,6 +949,14 @@ val pp_print_text : formatter -> string -> unit
   @since 4.02.0
 *)
 
+val pp_print_result :
+  ok:(formatter -> 'a -> unit) -> error:(formatter -> 'e -> unit) ->
+  formatter -> ('a, 'e) result -> unit
+(** [pp_print_result ~ok ~error ppf r] prints [r] on [ppf] using
+    [ok] if [r] is [Ok _] and [error] if [r] is [Error _].
+
+    @since 4.08 *)
+
 (** {1:fpp Formatted pretty-printing} *)
 
 (**