24 lines
1.0 KiB
OCaml
24 lines
1.0 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2016. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
type error += Demo_error of int
|
|
|
|
let () =
|
|
Error_monad.register_error_kind
|
|
`Temporary
|
|
~id:"unique.error.id"
|
|
~title:"Short error description"
|
|
~description:"Exhaustive error description"
|
|
~pp:(fun ppf i -> Format.fprintf ppf "Expected demo error: %d." i)
|
|
Data_encoding.(obj1 (req "data" int31))
|
|
(function Demo_error x -> Some x | _ -> None)
|
|
(fun x -> Demo_error x)
|
|
|
|
let demo_error x : unit tzresult Lwt.t = fail (Demo_error x)
|