Former-commit-id: 72b9afce99
This commit is contained in:
Roman Volosovskyi 2016-06-02 17:40:58 +03:00
parent 1d3a91c0ee
commit 13d689bb4a
3 changed files with 0 additions and 3 deletions

View File

@ -114,7 +114,6 @@
(defn set-new-contact-from-qr (defn set-new-contact-from-qr
[{:keys [new-contact] :as db} [_ _ qr-contact]] [{:keys [new-contact] :as db} [_ _ qr-contact]]
(println "WWUUUUUUTTT" qr-contact)
(assoc db :new-contact (merge new-contact qr-contact))) (assoc db :new-contact (merge new-contact qr-contact)))
(register-handler :set-new-contact-from-qr set-new-contact-from-qr) (register-handler :set-new-contact-from-qr set-new-contact-from-qr)

View File

@ -25,7 +25,6 @@
(defn handle-qr-request (defn handle-qr-request
[db [_ context data]] [db [_ context data]]
(let [handler (get-in db [:qr-codes context])] (let [handler (get-in db [:qr-codes context])]
(println handler context data)
(dispatch [handler context data]))) (dispatch [handler context data])))
(defn clear-qr-request [db [_ context]] (defn clear-qr-request [db [_ context]]

View File

@ -5,7 +5,6 @@
"Creates subscrition that cheks if collection (map or set) contains element" "Creates subscrition that cheks if collection (map or set) contains element"
[collection] [collection]
(fn [db [_ element]] (fn [db [_ element]]
(println "WWWWWWWWWW" (type db))
(-> (collection @db) (-> (collection @db)
(contains? element) (contains? element)
(reaction)))) (reaction))))