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