Alpha: export missing errors
This commit is contained in:
parent
19b5ce4fba
commit
6966240a54
@ -17,9 +17,9 @@ type error +=
|
|||||||
let () =
|
let () =
|
||||||
register_error_kind
|
register_error_kind
|
||||||
`Permanent
|
`Permanent
|
||||||
~id:"contract.undelagatable_contract"
|
~id:"contract.undelegatable_contract"
|
||||||
~title:"Non delegatable contract"
|
~title:"Non delegatable contract"
|
||||||
~description:"Tried to delegate a implicit contract \
|
~description:"Tried to delegate an implicit contract \
|
||||||
or a non delegatable originated contract"
|
or a non delegatable originated contract"
|
||||||
~pp:(fun ppf contract ->
|
~pp:(fun ppf contract ->
|
||||||
Format.fprintf ppf "Contract %a is not delegatable"
|
Format.fprintf ppf "Contract %a is not delegatable"
|
||||||
|
@ -40,6 +40,10 @@ val set:
|
|||||||
|
|
||||||
type error +=
|
type error +=
|
||||||
| Non_delegatable_contract of Contract_repr.contract (* `Permanent *)
|
| Non_delegatable_contract of Contract_repr.contract (* `Permanent *)
|
||||||
|
| No_deletion of Signature.Public_key_hash.t (* `Permanent *)
|
||||||
|
| Active_delegate (* `Temporary *)
|
||||||
|
| Current_delegate (* `Temporary *)
|
||||||
|
| Empty_delegate_account of Signature.Public_key_hash.t (* `Temporary *)
|
||||||
|
|
||||||
(** Iterate on all registered delegates. *)
|
(** Iterate on all registered delegates. *)
|
||||||
val fold:
|
val fold:
|
||||||
|
Loading…
Reference in New Issue
Block a user