Make register key .. as delegate “idempotent”

This commit is contained in:
Sebastien Mondet 2018-12-14 10:27:08 -05:00
parent 577f26d723
commit 8772b23235

View File

@ -505,8 +505,14 @@ let commands version () =
register_as_delegate cctxt
~chain:`Main ~block:cctxt#block ?confirmations:cctxt#confirmations
~dry_run ~fee_parameter
?fee ~manager_sk:src_sk src_pk >>=? fun _res ->
?fee ~manager_sk:src_sk src_pk
>>= function
| Ok _ -> return_unit
| Error (Alpha_environment.Ecoproto_error
Proto_alpha.Proto.Delegate_storage.Active_delegate :: []) ->
cctxt#message "Delegate already activated." >>= fun () ->
return_unit
| Error el -> Lwt.return (Error el)
end;
] @
(if version = (Some `Mainnet) then [] else [