summaryrefslogtreecommitdiff
path: root/src/chart.ml
diff options
context:
space:
mode:
Diffstat (limited to 'src/chart.ml')
-rw-r--r--src/chart.ml5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/chart.ml b/src/chart.ml
index 194e3ba..39f97f9 100644
--- a/src/chart.ml
+++ b/src/chart.ml
@@ -29,9 +29,8 @@ let pp formatter { vals : int list; opts : Options.t } =
29 match Stdlib.compare s e with 29 match Stdlib.compare s e with
30 | 0 -> make_marker axis_spc s (height - s) "-" 30 | 0 -> make_marker axis_spc s (height - s) "-"
31 | x -> 31 | x ->
32 let ltr_chr, rtl_chr = 32 let dr, rd, ru, ur = Connector.of_kind opts.connector in
33 match x with 1 -> ("└", "┐") | _ -> ("┘", "┌") 33 let ltr_chr, rtl_chr = match x with 1 -> (dr, rd) | _ -> (ru, ur) in
34 in
35 let st, en = Stdlib.(min s e, max s e) in 34 let st, en = Stdlib.(min s e, max s e) in
36 let l = en - st |> saturating_sub 1 in 35 let l = en - st |> saturating_sub 1 in
37 let left, right = (repeat st space, repeat (height - l - st) space) in 36 let left, right = (repeat st space, repeat (height - l - st) space) in