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

Fix wrong test directions

Browse Source
This commit is contained in:
Pierre Chambart 2018-06-23 03:21:53 +02:00
parent 7b770c52d5
commit 2ef5b26b1b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/proto_alpha/lib_protocol/src/contract_storage.ml
View File

@ -474,8 +474,8 @@ let paid_storage_space c contract =
| Some paid_space -> return paid_space
let record_paid_storage_space c contract paid_storage =
Storage.Contract.Paid_storage_space.get c contract >>=? fun already_paid_fees ->
if Compare.Z.(already_paid_fees < paid_storage) then
Storage.Contract.Used_storage_space.get c contract >>=? fun already_paid_fees ->
if Compare.Z.(already_paid_fees >= paid_storage) then
return (Z.zero, c)
else
let to_pay = Z.sub paid_storage already_paid_fees in