Alpha: export missing errors
This commit is contained in:
parent
19b5ce4fba
commit
6966240a54
@ -17,9 +17,9 @@ type error +=
|
||||
let () =
|
||||
register_error_kind
|
||||
`Permanent
|
||||
~id:"contract.undelagatable_contract"
|
||||
~id:"contract.undelegatable_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"
|
||||
~pp:(fun ppf contract ->
|
||||
Format.fprintf ppf "Contract %a is not delegatable"
|
||||
|
@ -40,6 +40,10 @@ val set:
|
||||
|
||||
type error +=
|
||||
| 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. *)
|
||||
val fold:
|
||||
|
Loading…
Reference in New Issue
Block a user