Source file `to_ascii_table.ml`

1
2
3
4
5
6
7
8
9
10
11
12
open Csv_common

let run ?separator ?limit_width_to ?(prefer_split_on_spaces = true) file =
  Or_file.with_all file ?separator ~f:(fun csv ->
    let open Ascii_table in
    simple_list_table
      ~display:Display.short_box
      ?limit_width_to
      ~prefer_split_on_spaces
      csv.header
      csv.lines)
;;