diff options
Diffstat (limited to 'lib/sql/hashs.ml')
| -rw-r--r-- | lib/sql/hashs.ml | 8 |
1 files changed, 3 insertions, 5 deletions
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 |