diff options
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 = |