blob: 1c73c1365b4d33fad814a8f56d88cc96193a65f7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
module Syntax = ImportConf.Syntax
module Table = ImportDataTypes.Table
module Path = ImportDataTypes.Path
let path : conf:Syntax.t -> Format.formatter -> Path.t -> unit =
fun ~conf buffer { alias; column } ->
let table = ImportConf.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
|
