Alpha: export missing errors

This commit is contained in:
bruno 2018-05-07 16:58:17 +02:00
parent 19b5ce4fba
commit 6966240a54
2 changed files with 6 additions and 2 deletions

View File

@ -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"

View File

@ -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: