From 47e2c68b7c8e47e4b8986c1542dd0e2801a4caef Mon Sep 17 00:00:00 2001
From: Jules Villard <jul@fb.com>
Date: Tue, 5 Mar 2019 09:33:57 -0800
Subject: [PATCH] [pp] print html-friendly option types

Summary: Spent some time staring at empty HTML output instead of seeing `<Some ...>` because I'm dumb. Now it's dumb proof.

Reviewed By: mbouaziz

Differential Revision: D14258492

fbshipit-source-id: d1368d212
---
 infer/src/istd/Pp.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/infer/src/istd/Pp.ml b/infer/src/istd/Pp.ml
index 762306cfe..480bffb89 100644
--- a/infer/src/istd/Pp.ml
+++ b/infer/src/istd/Pp.ml
@@ -128,9 +128,9 @@ let elapsed_time fmt () = Mtime.Span.pp fmt (Mtime_clock.elapsed ())
 
 let option pp fmt = function
   | None ->
-      F.pp_print_string fmt "<None>"
+      F.pp_print_string fmt "[None]"
   | Some x ->
-      F.fprintf fmt "<Some %a>" pp x
+      F.fprintf fmt "[Some %a]" pp x
 
 
 let to_string ~f fmt x = F.pp_print_string fmt (f x)