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
[{: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)

View File

@ -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]]

View File

@ -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))))