Use lisp-case for payout receipt and winner login

This commit is contained in:
Vitaliy Vlasov 2018-05-30 16:52:35 +03:00
parent 38dc33b359
commit ae9faaef03
No known key found for this signature in database
GPG Key ID: A7D57C347F2B2964

View File

@ -87,10 +87,10 @@
;; special prefix or namespace for derived properties that
;; are added to domain records like this
;; e.g. `derived/paid?`
[id (assoc bounty :paid? (boolean (and (:payout_receipt bounty)
[id (assoc bounty :paid? (boolean (and (:payout-receipt bounty)
;; bounties with winner logins
;; were not revoked
(:winner_login bounty))))])
(:winner-login bounty))))])
(into {}))))
(reg-sub