balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Alpha: remove unused error

Browse Source
This commit is contained in:
Benjamin Canou 2018-05-21 20:42:37 +02:00 committed by Grégoire Henry
parent d0a9fb678c
commit 89d9d83b15
3 changed files with 1 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/proto_alpha/lib_baking/test/proto_alpha_helpers.ml
View File

@ -459,7 +459,7 @@ module Assert = struct
let missing_public_key ~msg = let missing_public_key ~msg =
contain_error ~msg ~f:begin ecoproto_error (function contain_error ~msg ~f:begin ecoproto_error (function
| Contract_storage.Missing_public_key _ -> true | Contract_storage.Unrevealed_manager_key _ -> true
| _ -> false) | _ -> false)
end end

12
src/proto_alpha/lib_protocol/src/contract_storage.ml
View File

@ -16,7 +16,6 @@ type error +=
| Empty_implicit_contract of Signature.Public_key_hash.t (* `Temporary *) | Empty_implicit_contract of Signature.Public_key_hash.t (* `Temporary *)
| Inconsistent_hash of Signature.Public_key.t * Signature.Public_key_hash.t * Signature.Public_key_hash.t (* `Permanent *) | Inconsistent_hash of Signature.Public_key.t * Signature.Public_key_hash.t * Signature.Public_key_hash.t (* `Permanent *)
| Inconsistent_public_key of Signature.Public_key.t * Signature.Public_key.t (* `Permanent *) | Inconsistent_public_key of Signature.Public_key.t * Signature.Public_key.t (* `Permanent *)
| Missing_public_key of Signature.Public_key_hash.t (* `Permanent *)
| Failure of string (* `Permanent *) | Failure of string (* `Permanent *)
| Previously_revealed_key of Contract_repr.t (* `Permanent *) | Previously_revealed_key of Contract_repr.t (* `Permanent *)
| Unrevealed_manager_key of Contract_repr.t (* `Permanent *) | Unrevealed_manager_key of Contract_repr.t (* `Permanent *)
@ -121,17 +120,6 @@ let () =
(req "expected_public_key" Signature.Public_key.encoding)) (req "expected_public_key" Signature.Public_key.encoding))
(function Inconsistent_public_key (eh, ph) -> Some (eh, ph) | _ -> None) (function Inconsistent_public_key (eh, ph) -> Some (eh, ph) | _ -> None)
(fun (eh, ph) -> Inconsistent_public_key (eh, ph)) ; (fun (eh, ph) -> Inconsistent_public_key (eh, ph)) ;
register_error_kind
`Permanent
~id:"contract.manager.missing_public_key"
~title:"Missing public key"
~description:"The manager public key must be provided to execute the current operation"
~pp:(fun ppf k ->
Format.fprintf ppf "The manager public key ( with hash %a ) is missing"
Signature.Public_key_hash.pp k)
Data_encoding.(obj1 (req "hash" Signature.Public_key_hash.encoding))
(function Missing_public_key k -> Some k | _ -> None)
(fun k -> Missing_public_key k) ;
register_error_kind register_error_kind
`Permanent `Permanent
~id:"contract.failure" ~id:"contract.failure"

1
src/proto_alpha/lib_protocol/src/contract_storage.mli
View File

@ -16,7 +16,6 @@ type error +=
| Empty_implicit_contract of Signature.Public_key_hash.t (* `Temporary *) | Empty_implicit_contract of Signature.Public_key_hash.t (* `Temporary *)
| Inconsistent_hash of Signature.Public_key.t * Signature.Public_key_hash.t * Signature.Public_key_hash.t (* `Permanent *) | Inconsistent_hash of Signature.Public_key.t * Signature.Public_key_hash.t * Signature.Public_key_hash.t (* `Permanent *)
| Inconsistent_public_key of Signature.Public_key.t * Signature.Public_key.t (* `Permanent *) | Inconsistent_public_key of Signature.Public_key.t * Signature.Public_key.t (* `Permanent *)
| Missing_public_key of Signature.Public_key_hash.t (* `Permanent *)
| Failure of string (* `Permanent *) | Failure of string (* `Permanent *)
| Previously_revealed_key of Contract_repr.t (* `Permanent *) | Previously_revealed_key of Contract_repr.t (* `Permanent *)
| Unrevealed_manager_key of Contract_repr.t (* `Permanent *) | Unrevealed_manager_key of Contract_repr.t (* `Permanent *)