diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-16 15:53:36 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-16 15:53:36 +0200 |
| commit | a452e436af72ccc1b8342ac6b666f0ff202cc20a (patch) | |
| tree | 6f77b0df5503cfe07f0c423f95b2e0e91fc05afd /ltac | |
| parent | 568aa9dff652d420e66cda7914d4bc265bb276e7 (diff) | |
| parent | 57940361863fb121f8b7bf2cb061fc4ab34da9e5 (diff) | |
Merge PR #211: Fix a printing typo in LtacProf.
Diffstat (limited to 'ltac')
| -rw-r--r-- | ltac/profile_ltac.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ltac/profile_ltac.ml b/ltac/profile_ltac.ml index 7a8ef32c3..c651aec98 100644 --- a/ltac/profile_ltac.ml +++ b/ltac/profile_ltac.ml @@ -219,7 +219,8 @@ let rec list_iter_is_last f = function let header = str " tactic self total calls max" ++ fnl () ++ - str "────────────────────────────────────────┴──────┴──────┴───────┴─────────┘" + str "────────────────────────────────────────┴──────┴──────┴───────┴─────────┘" ++ + fnl () let rec print_node all_total indent prefix (s, n) = let e = n.entry in @@ -230,6 +231,7 @@ let rec print_node all_total indent prefix (s, n) = ++ padl 8 (string_of_int e.ncalls) ++ padl 10 (format_sec (e.max_total)) ) ++ + fnl () ++ print_table all_total indent false n.children and print_table all_total indent first_level table = |