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/hashs.ml | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'lib/sql/hashs.ml') diff --git a/lib/sql/hashs.ml b/lib/sql/hashs.ml index af1f092..eced2b4 100644 --- a/lib/sql/hashs.ml +++ b/lib/sql/hashs.ml @@ -1,10 +1,8 @@ -(** - This module store the hash of the indexes ([extern_key]) for each table in +(** This module store the hash of the indexes ([extern_key]) for each table in order to update the file if the configuration changed. The hashes are stored in a table named [hashes] and are evaluated just - before inserting the values. -*) + before inserting the values. *) open StdLabels module Table = ImportDataTypes.Table @@ -75,5 +73,5 @@ let query : 'a T.t -> ImportDataTypes.Table.t -> int option T.result = let* _ = T.to_result state in match res with - | Some (ImportCSV.DataType.Integer i) -> Ok (Some i) + | Some (ImportDataTypes.Value.Integer i) -> Ok (Some i) | _ -> Ok None -- cgit v1.2.3