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

Alpha: fix the doulble roll bug

Browse Source
This commit is contained in:
Pierre Chambart 2018-06-15 00:45:47 +02:00 committed by Benjamin Canou
parent 89f73cceb9
commit c64698be09
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -117,10 +117,10 @@ let unlink c contract balance =
Storage.Contract.Delegate.get_option c contract >>=? function Storage.Contract.Delegate.get_option c contract >>=? function
| None -> return c | None -> return c
| Some delegate -> | Some delegate ->
Roll_storage.Delegate.remove_amount c delegate balance >>=? fun c ->
match Contract_repr.is_originated contract with match Contract_repr.is_originated contract with
| None -> return c | None -> return c
| Some h -> | Some h ->
Roll_storage.Delegate.remove_amount c delegate balance >>=? fun c ->
Storage.Contract.Delegated.del Storage.Contract.Delegated.del
(c, Contract_repr.implicit_contract delegate) h >>= fun c -> (c, Contract_repr.implicit_contract delegate) h >>= fun c ->
return c return c