From b09183a2d74e4b349014e2257b7bc60808a38870 Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Thu, 15 Mar 2018 14:06:00 +0100 Subject: [PATCH] Alpha: remove emptied frozen balances --- src/proto_alpha/lib_protocol/src/delegate_storage.ml | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/proto_alpha/lib_protocol/src/delegate_storage.ml b/src/proto_alpha/lib_protocol/src/delegate_storage.ml index 3378fbf99..05e870273 100644 --- a/src/proto_alpha/lib_protocol/src/delegate_storage.ml +++ b/src/proto_alpha/lib_protocol/src/delegate_storage.ml @@ -219,6 +219,9 @@ let unfreeze ctxt delegate cycle = Lwt.return Tez_repr.(balance +? rewards) >>=? fun balance -> Storage.Contract.Balance.set ctxt contract balance >>=? fun ctxt -> Roll_storage.Delegate.add_amount ctxt delegate rewards >>=? fun ctxt -> + Storage.Contract.Frozen_bonds.remove (ctxt, contract) cycle >>= fun ctxt -> + Storage.Contract.Frozen_fees.remove (ctxt, contract) cycle >>= fun ctxt -> + Storage.Contract.Frozen_rewards.remove (ctxt, contract) cycle >>= fun ctxt -> return ctxt let cycle_end ctxt last_cycle unrevealed =