diff options
Diffstat (limited to 'lib/errors/importErrors.ml')
| -rw-r--r-- | lib/errors/importErrors.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/errors/importErrors.ml b/lib/errors/importErrors.ml index 7433e9b..a062f38 100644 --- a/lib/errors/importErrors.ml +++ b/lib/errors/importErrors.ml @@ -1,5 +1,4 @@ open StdLabels -module CSV = ImportCSV module Table = ImportDataTypes.Table let bom = "\xEF\xBB\xBF" @@ -9,7 +8,7 @@ type xlsError = { row : int; sheet : int; target : Table.t option; - value : CSV.DataType.t; + value : ImportDataTypes.Value.t; exn : exn; } @@ -35,7 +34,8 @@ exception let repr_error = function | SqlError s -> Printf.sprintf "%s Error" (Sqlite3.Rc.to_string s) | NullKey k -> - Printf.sprintf "The key %s is null" (ImportCSV.Csv.column_to_string k) + Printf.sprintf "The key %s is null" + (ImportDataTypes.Path.column_to_string k) | Unknown_source source -> Printf.sprintf "The source %s is referenced without beiing declared" source @@ -74,7 +74,7 @@ let output_error : t -> xlsError -> unit = string_of_int error.sheet; string_of_int error.row; target; - CSV.DataType.to_string "C" error.value; + ImportDataTypes.Value.to_string "C" error.value; repr_error error.exn; ] |