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

Alpha/Origination: ensure that delegate's originated accounts are registered

Browse Source
This commit is contained in:
Vincent Botbol 2018-07-17 14:04:33 +02:00 committed by Grégoire Henry
parent da986e27ab
commit 07486a3027
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/proto_alpha/lib_protocol/src/delegate_storage.ml
View File

@ -253,6 +253,14 @@ let registered c delegate =
c (Contract_repr.implicit_contract delegate) c (Contract_repr.implicit_contract delegate)
let init ctxt contract delegate = let init ctxt contract delegate =
known ctxt delegate >>=? fun known_delegate ->
fail_unless
known_delegate
(Roll_storage.Unregistered_delegate delegate) >>=? fun () ->
registered ctxt delegate >>= fun is_registered ->
fail_unless
is_registered
(Roll_storage.Unregistered_delegate delegate) >>=? fun () ->
Storage.Contract.Delegate.init ctxt contract delegate >>=? fun ctxt -> Storage.Contract.Delegate.init ctxt contract delegate >>=? fun ctxt ->
Storage.Contract.Balance.get ctxt contract >>=? fun balance -> Storage.Contract.Balance.get ctxt contract >>=? fun balance ->
link ctxt contract delegate balance link ctxt contract delegate balance