Node: add missing error pretty printers
This commit is contained in:
parent
2f85dc526d
commit
64c65558d8
@ -30,6 +30,10 @@ let () =
|
|||||||
~id: "invalidDataDir"
|
~id: "invalidDataDir"
|
||||||
~title: "Invalid data directory"
|
~title: "Invalid data directory"
|
||||||
~description: "The data directory cannot be accessed or created"
|
~description: "The data directory cannot be accessed or created"
|
||||||
|
~pp:(fun ppf path ->
|
||||||
|
Format.fprintf ppf
|
||||||
|
"Invalid data directory '%s'."
|
||||||
|
path)
|
||||||
Data_encoding.(obj1 (req "datadirPath" string))
|
Data_encoding.(obj1 (req "datadirPath" string))
|
||||||
(function
|
(function
|
||||||
| Invalid_data_dir path ->
|
| Invalid_data_dir path ->
|
||||||
@ -41,6 +45,10 @@ let () =
|
|||||||
~id: "invalidDataDirVersion"
|
~id: "invalidDataDirVersion"
|
||||||
~title: "Invalid data directory version"
|
~title: "Invalid data directory version"
|
||||||
~description: "The data directory version was not the one that was expected"
|
~description: "The data directory version was not the one that was expected"
|
||||||
|
~pp:(fun ppf (exp, got) ->
|
||||||
|
Format.fprintf ppf
|
||||||
|
"Invalid data directory version '%s' (expected '%s')."
|
||||||
|
got exp)
|
||||||
Data_encoding.(obj2
|
Data_encoding.(obj2
|
||||||
(req "expectedVersion" string)
|
(req "expectedVersion" string)
|
||||||
(req "actualVersion" string))
|
(req "actualVersion" string))
|
||||||
|
Loading…
Reference in New Issue
Block a user