parent
1d3a91c0ee
commit
13d689bb4a
|
@ -114,7 +114,6 @@
|
|||
|
||||
(defn set-new-contact-from-qr
|
||||
[{:keys [new-contact] :as db} [_ _ qr-contact]]
|
||||
(println "WWUUUUUUTTT" qr-contact)
|
||||
(assoc db :new-contact (merge new-contact qr-contact)))
|
||||
|
||||
(register-handler :set-new-contact-from-qr set-new-contact-from-qr)
|
||||
|
|
|
@ -25,7 +25,6 @@
|
|||
(defn handle-qr-request
|
||||
[db [_ context data]]
|
||||
(let [handler (get-in db [:qr-codes context])]
|
||||
(println handler context data)
|
||||
(dispatch [handler context data])))
|
||||
|
||||
(defn clear-qr-request [db [_ context]]
|
||||
|
|
|
@ -5,7 +5,6 @@
|
|||
"Creates subscrition that cheks if collection (map or set) contains element"
|
||||
[collection]
|
||||
(fn [db [_ element]]
|
||||
(println "WWWWWWWWWW" (type db))
|
||||
(-> (collection @db)
|
||||
(contains? element)
|
||||
(reaction))))
|
||||
|
|
Loading…
Reference in New Issue