status-im
/
open-bounty
mirror of https://github.com/status-im/open-bounty.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

use doseq to force side effects, fix underscores & naming

This commit is contained in:
Rob Culliton 2018-05-04 18:24:35 -04:00
parent abfcc4a580
commit 199bfeead9
No known key found for this signature in database
GPG Key ID: 6FDEF60B3DC84D94
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/cljs/commiteth/interceptors.cljs
View File

@ -12,17 +12,17 @@
(defn filter-updated-bounties [old-bounties new-bounties] (defn filter-updated-bounties [old-bounties new-bounties]
"filters collection of bounties to only those with a confirm has that has been recently set" "filters collection of bounties to only those with a confirm has that has been recently set"
(filter (fn [[issue-id owner-bounty]] (filter (fn [[issue-id owner-bounty]]
(let [current-confirm-hash (:confirm_hash owner-bounty) (let [new-confirm-hash (:confirm_hash owner-bounty)
old-confirm-hash (get-in old-bounties [issue-id :confirm_hash])] old-confirm-hash (get-in old-bounties [issue-id :confirm_hash])]
(and (nil? old-confirm-hash) (some? current-confirm-hash)))) (and (nil? old-confirm-hash) (some? new-confirm-hash))))
new-bounties)) new-bounties))
(defn dispatch-bounty [bounty] (defn dispatch-bounty [bounty]
"dispatches a bounty via reframe dispatch" "dispatches a bounty via reframe dispatch"
(rf/dispatch [:confirm-payout {:issue_id (:issue-id bounty) (rf/dispatch [:confirm-payout {:issue_id (:issue-id bounty)
:owner_address (:owner-address bounty) :owner_address (:owner_address bounty)
:contract_address (:contract_address bounty) :contract_address (:contract_address bounty)
:confirm_hash (:confirm-hash bounty)}])) :confirm_hash (:confirm_hash bounty)}]))
(def confirm-hash-update (def confirm-hash-update
"An interceptor which exaimines the event diff for `:load-owner-bounties` "An interceptor which exaimines the event diff for `:load-owner-bounties`
@ -54,7 +54,8 @@
(let [updated-bounties (->> end-ob (let [updated-bounties (->> end-ob
(filter-updated-bounties start-ob) (filter-updated-bounties start-ob)
vals)] vals)]
;; for bounties which just had confirm hash set: perform side effect ;; for bounties which just had confirm hash set: perform
;; but interceptor must return context ;; dispatch side effect but interceptor must return context
(map (fn [bounty] (dispatch-bounty bounty)) updated-bounties))))) (doseq [bounty updated-bounties]
(dispatch-bounty bounty))))))
context)))) context))))