From 8b8b730d3ba98d6c9e4e6274844641043b5fefbb Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 17 Mar 2025 09:11:25 +0100 Subject: Moved the syntax module in its own library --- lib/sql/header.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lib/sql/header.ml') 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 = -- cgit v1.2.3