concat_traces: always print labels

Reviewed By: jvillard Differential Revision: D13118979 fbshipit-source-id: 0875b7777
6 years ago · 4a4e8c6e1b
parent acf740e145
commit 4a4e8c6e1b
1 changed files with 8 additions and 14 deletions
--- a/infer/src/IR/Errlog.ml
+++ b/infer/src/IR/Errlog.ml
@ -46,12 +46,6 @@ let make_trace_element lt_level lt_loc lt_description lt_node_tags =
 type loc_trace = loc_trace_elem list
 let concat_traces labelled_traces =
  match labelled_traces with
  | [] ->
      []
  | [(_, t)] ->
      t
  | _ ->
  List.fold_right labelled_traces ~init:[] ~f:(fun labelled_trace res ->
      match labelled_trace with
      | _, [] ->