balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Utils: include error id in the default error pretty printer.

Browse Source
This commit is contained in:
Benjamin Canou 2017-01-20 13:13:42 +01:00
parent c472dbdfa4
commit 3a149af667
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/utils/error_monad.ml
View File

@ -16,10 +16,12 @@ type error_category = [ `Branch | `Temporary | `Permanent ]
type 'err full_error_category =
[ error_category | `Wrapped of 'err -> error_category ]
let json_pp encoding ppf x =
let json_pp id encoding ppf x =
let encoding =
Data_encoding.(merge_objs (obj1 (req "id" string)) encoding) in
Format.pp_print_string ppf @@
Data_encoding_ezjsonm.to_string @@
Data_encoding.Json.(construct encoding x)
Data_encoding.Json.(construct encoding (id, x))
module Make() = struct
@ -74,7 +76,7 @@ module Make() = struct
category ;
from_error ;
encoding_case ;
pp = Utils.unopt (json_pp encoding) pp } :: !error_kinds
pp = Utils.unopt (json_pp name encoding) pp } :: !error_kinds
let register_wrapped_error_kind
category ~id ~title ~description ?pp