diff options
| author | Sébastien Dailly <sebastien@dailly.me> | 2025-03-17 09:11:25 +0100 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@dailly.me> | 2025-03-17 18:59:32 +0100 |
| commit | 8b8b730d3ba98d6c9e4e6274844641043b5fefbb (patch) | |
| tree | 4cb60dafa05b479d0ca287d501a51db88cecaaa4 /lib/sql/header.ml | |
| parent | 7bfbb67d83011f3e1845dcb9e44c3b6a5e93a9da (diff) | |
Moved the syntax module in its own library
Diffstat (limited to 'lib/sql/header.ml')
| -rw-r--r-- | lib/sql/header.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/sql/header.ml b/lib/sql/header.ml index 3cac5fb..1f4c9d6 100644 --- a/lib/sql/header.ml +++ b/lib/sql/header.ml @@ -13,7 +13,7 @@ let create_table : 'a T.t -> unit T.result = let insert_header : 'a T.t -> ImportDataTypes.Table.t -> - (int * ImportCSV.DataType.t) array -> + (int * ImportDataTypes.Value.t) array -> unit T.result = fun db table values -> let table_name = Table.name table in @@ -48,7 +48,8 @@ let insert_header : T.commit db let query_headers : - 'a T.t -> ImportDataTypes.Table.t -> ImportCSV.DataType.t array T.result = + 'a T.t -> ImportDataTypes.Table.t -> ImportDataTypes.Value.t array T.result + = fun db table -> let table_name = Table.name table in let query = |