blob: 3dc2f022d1180b4cbfda43a1b86cd151751c7567 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
module Table = ImportDataTypes.Table
module Path = ImportDataTypes.Path
let path : conf:ImporterSyntax.t -> Format.formatter -> Path.t -> unit =
fun ~conf buffer { alias; column } ->
let table = ImporterSyntax.get_table_for_name conf alias in
Format.fprintf buffer "%s"
(Table.print_column table ("col_" ^ string_of_int column))
let prepare_key : f:(Format.formatter -> unit) -> Format.formatter -> unit =
fun ~f formatter -> Format.fprintf formatter "rtrim(upper(%t))" f
|
