blob: 6684b5a9ad07ca03733355839100e410622b954a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
type column = int [@@deriving ord]
type t = {
alias : string option;
(* External file to load, when the information is missing, load in
the current file *)
column : column;
}
[@@deriving ord]
let repr { alias; column } =
let column_text = ImportCSV.Csv.column_to_string column in
match alias with
| None -> ":" ^ column_text
| Some value -> ":" ^ value ^ "." ^ column_text
|