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

Client/Endorser: remove older endorsement from wallet

Browse Source
This commit is contained in:
Mathias 2018-05-22 19:40:47 +02:00 committed by Grégoire Henry
parent c4549650b5
commit d82c811bdd
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/proto_alpha/lib_baking/client_baking_endorsement.ml
View File

@ -60,12 +60,16 @@ end = struct
load wallet >>=? fun l ->
let delegate_key = Signature.Public_key_hash.to_short_b58check delegate
in
match List.assoc_opt delegate_key l with
| None ->
save wallet ((delegate_key, new_lvl)::l)
| Some _ ->
let rec remove_old acc = function
| [] -> List.rev acc
| ((_,lvl) as hd)::tl ->
if Raw_level.diff new_lvl lvl > 50l (*?*) then
remove_old (hd::acc) tl
else
List.rev acc
in
save wallet ((delegate_key, new_lvl)::
List.remove_assoc delegate_key l)
List.remove_assoc delegate_key (remove_old [] l))
end)
end
end