[infer] print all the severities in the debug html

Reviewed By: mbouaziz

Differential Revision: D9252923

fbshipit-source-id: ded66710c

infer/src/IR/Errlog.ml

@@ -188,18 +188,15 @@ let pp_html source path_to_root fmt (errlog: t) =
       F.fprintf fmt "<br>%a %a %a" IssueType.pp key.err_name Localise.pp_error_desc key.err_desc
         pp_eds err_datas
   in
-  F.fprintf fmt "%aERRORS DURING FOOTPRINT@\n" Io_infer.Html.pp_hline () ;
+  let pp severity is_footprint phase =
-  ErrLogHash.iter (pp_err_log true Exceptions.Error) errlog ;
+    F.fprintf fmt "%a%s DURING %s@\n" Io_infer.Html.pp_hline ()
-  F.fprintf fmt "%aERRORS DURING RE-EXECUTION@\n" Io_infer.Html.pp_hline () ;
+      (Exceptions.severity_string severity)
-  ErrLogHash.iter (pp_err_log false Exceptions.Error) errlog ;
+      phase ;
-  F.fprintf fmt "%aWARNINGS DURING FOOTPRINT@\n" Io_infer.Html.pp_hline () ;
+    ErrLogHash.iter (pp_err_log is_footprint severity) errlog
-  ErrLogHash.iter (pp_err_log true Exceptions.Warning) errlog ;
+  in
-  F.fprintf fmt "%aWARNINGS DURING RE-EXECUTION@\n" Io_infer.Html.pp_hline () ;
+  List.iter
-  ErrLogHash.iter (pp_err_log false Exceptions.Warning) errlog ;
+    Exceptions.[Advice; Error; Info; Like; Warning]
-  F.fprintf fmt "%aINFOS DURING FOOTPRINT@\n" Io_infer.Html.pp_hline () ;
+    ~f:(fun severity -> pp severity true "FOOTPRINT" ; pp severity false "RE-EXECUTION")
-  ErrLogHash.iter (pp_err_log true Exceptions.Info) errlog ;
-  F.fprintf fmt "%aINFOS DURING RE-EXECUTION@\n" Io_infer.Html.pp_hline () ;
-  ErrLogHash.iter (pp_err_log false Exceptions.Info) errlog
 
 
 (** Add an error description to the error log unless there is