diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/chart.ml | 8 | ||||
-rw-r--r-- | src/utils.ml | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/src/chart.ml b/src/chart.ml index de79082..194e3ba 100644 --- a/src/chart.ml +++ b/src/chart.ml | |||
@@ -1,11 +1,3 @@ | |||
1 | let to_string c = String.make 1 c | ||
2 | |||
3 | let space = to_string ' ' | ||
4 | |||
5 | let axis = "┬" | ||
6 | |||
7 | let axis_spc = "─" | ||
8 | |||
9 | type t = { vals : int list; opts : Options.t } | 1 | type t = { vals : int list; opts : Options.t } |
10 | 2 | ||
11 | let default = { vals = []; opts = Options.default } | 3 | let default = { vals = []; opts = Options.default } |
diff --git a/src/utils.ml b/src/utils.ml index 833c972..59eac6c 100644 --- a/src/utils.ml +++ b/src/utils.ml | |||
@@ -29,3 +29,11 @@ let rot_right ls = List.(rev ls |> transpose) | |||
29 | let rot_left ls = List.(transpose ls |> rev) | 29 | let rot_left ls = List.(transpose ls |> rev) |
30 | 30 | ||
31 | let saturating_sub b a = if a < b then 0 else a - b | 31 | let saturating_sub b a = if a < b then 0 else a - b |
32 | |||
33 | let to_string c = String.make 1 c | ||
34 | |||
35 | let space = to_string ' ' | ||
36 | |||
37 | let axis = "┬" | ||
38 | |||
39 | let axis_spc = "─" | ||