From 6966240a54da7cd215890ccb1018c168d6d5fb3f Mon Sep 17 00:00:00 2001 From: bruno Date: Mon, 7 May 2018 16:58:17 +0200 Subject: [PATCH] Alpha: export missing errors --- src/proto_alpha/lib_protocol/src/delegate_storage.ml | 4 ++-- src/proto_alpha/lib_protocol/src/delegate_storage.mli | 4 ++++ 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/src/proto_alpha/lib_protocol/src/delegate_storage.ml b/src/proto_alpha/lib_protocol/src/delegate_storage.ml index 3990f3a5e..ddc46de41 100644 --- a/src/proto_alpha/lib_protocol/src/delegate_storage.ml +++ b/src/proto_alpha/lib_protocol/src/delegate_storage.ml @@ -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" diff --git a/src/proto_alpha/lib_protocol/src/delegate_storage.mli b/src/proto_alpha/lib_protocol/src/delegate_storage.mli index 02ca3f386..697839c30 100644 --- a/src/proto_alpha/lib_protocol/src/delegate_storage.mli +++ b/src/proto_alpha/lib_protocol/src/delegate_storage.mli @@ -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: