swap ordering of revoked-payout-receipts and payout-receipts

This commit is contained in:
Rob Culliton 2018-05-01 22:12:28 -04:00
parent 56e54e10a4
commit e10c8b577c
No known key found for this signature in database
GPG Key ID: 6FDEF60B3DC84D94
1 changed files with 20 additions and 20 deletions

View File

@ -227,26 +227,6 @@
(catch Throwable ex (catch Throwable ex
(log/error ex "issue %s: update-payout-receipt exception" issue-id)))) (log/error ex "issue %s: update-payout-receipt exception" issue-id))))
(defn update-revoked-payout-receipts
"Gets transaction receipt for each confirmed revocation and updates payout_hash"
[]
(log/info "In update-revoked-payout-receipts")
(p :update-payout-receipts
(doseq [{issue-id :issue_id
payout-hash :payout_hash
contract-address :contract_address
repo :repo
owner :owner
comment-id :comment_id
issue-number :issue_number
balance-eth :balance_eth
tokens :tokens
confirm-hash :confirm_hash
payee-login :payee_login
updated :updated} (db-bounties/confirmed-revocation-payouts)]
(update-payout-receipt owner repo comment-id balance-eth tokens payee-login issue-id confirm-hash payout-hash contract-address updated)))
(log/info "Exit update-revoked-payout-receipts"))
(defn update-payout-receipts (defn update-payout-receipts
"Gets transaction receipt for each confirmed payout and updates payout_hash" "Gets transaction receipt for each confirmed payout and updates payout_hash"
[] []
@ -267,6 +247,26 @@
(update-payout-receipt owner repo comment-id balance-eth tokens payee-login issue-id confirm-hash payout-hash contract-address updated))) (update-payout-receipt owner repo comment-id balance-eth tokens payee-login issue-id confirm-hash payout-hash contract-address updated)))
(log/info "Exit update-payout-receipts")) (log/info "Exit update-payout-receipts"))
(defn update-revoked-payout-receipts
"Gets transaction receipt for each confirmed revocation and updates payout_hash"
[]
(log/info "In update-revoked-payout-receipts")
(p :update-payout-receipts
(doseq [{issue-id :issue_id
payout-hash :payout_hash
contract-address :contract_address
repo :repo
owner :owner
comment-id :comment_id
issue-number :issue_number
balance-eth :balance_eth
tokens :tokens
confirm-hash :confirm_hash
payee-login :payee_login
updated :updated} (db-bounties/confirmed-revocation-payouts)]
(update-payout-receipt owner repo comment-id balance-eth tokens payee-login issue-id confirm-hash payout-hash contract-address updated)))
(log/info "Exit update-revoked-payout-receipts"))
(defn abs (defn abs
"(abs n) is the absolute value of n" "(abs n) is the absolute value of n"
[n] [n]