diff options
| author | Sébastien Dailly <sebastien@dailly.me> | 2025-01-07 22:40:19 +0100 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@dailly.me> | 2025-01-22 12:22:26 +0100 |
| commit | 986bcb796d8b9e1f485baa8da599aa816c56b587 (patch) | |
| tree | 76a83796a60ec0e30575d3078518c6e2545cd4b0 /lib/errors/importErrors.ml | |
| parent | 5e15341857e57671a3c617579e3d5dcc89040936 (diff) | |
Explicitly list all the availables functions
Diffstat (limited to 'lib/errors/importErrors.ml')
| -rw-r--r-- | lib/errors/importErrors.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/errors/importErrors.ml b/lib/errors/importErrors.ml index 04f9deb..782291e 100644 --- a/lib/errors/importErrors.ml +++ b/lib/errors/importErrors.ml @@ -25,6 +25,7 @@ exception SqlError of Sqlite3.Rc.t exception MisplacedWindow exception Unknown_source of string exception Unknown_extension of string +exception UnknowFunction of string exception Cycle of string list (** Cycle between the dpendencies *) @@ -53,6 +54,9 @@ let repr_error = function (ImportDataTypes.Types.string_of_t expected) expression | Unknown_extension ext -> Printf.sprintf "Unknown file extension %s" ext + | UnknowFunction name -> + Printf.sprintf "Unknown function or wrong number of arguments for '%s'" + name | Cycle deps -> Printf.sprintf "Cycle between the dependencies : %s" (String.concat ~sep:"," deps) |