adding and removing transaction rules works.
This commit is contained in:
@@ -27,22 +27,35 @@
|
||||
(fn [db]
|
||||
(-> db (::params {}))))
|
||||
|
||||
;; EVENTS
|
||||
|
||||
(defn ungraphql-transaction-rule [x]
|
||||
(-> x
|
||||
(update :amount-lte #(some-> % js/parseFloat))
|
||||
(update :amount-gte #(some-> % js/parseFloat))))
|
||||
|
||||
(re-frame/reg-event-db
|
||||
::edit-completed
|
||||
(fn [db [_ edit-transaction-rule]]
|
||||
(println edit-transaction-rule)
|
||||
(-> db
|
||||
(update-in [::page :transaction-rules]
|
||||
replace-by :id (assoc edit-transaction-rule :class "live-added")))))
|
||||
replace-by :id
|
||||
(-> edit-transaction-rule
|
||||
ungraphql-transaction-rule
|
||||
(assoc :class "live-added"))))))
|
||||
|
||||
;; EVENTS
|
||||
|
||||
(re-frame/reg-event-db
|
||||
::received
|
||||
(fn [db [_ data]]
|
||||
(println data)
|
||||
(-> db
|
||||
(update ::page merge (:transaction-rule-page data))
|
||||
|
||||
(update ::page merge
|
||||
(-> data
|
||||
:transaction-rule-page
|
||||
(update :transaction-rules (fn [rules]
|
||||
(mapv ungraphql-transaction-rule rules)))))
|
||||
(assoc-in [:status :loading] false))))
|
||||
|
||||
(re-frame/reg-event-fx
|
||||
|
||||
Reference in New Issue
Block a user