removed usused server ns

This commit is contained in:
Andrey Shovkoplyas 2017-10-24 10:34:13 +03:00 committed by Roman Volosovskyi
parent 0822e5a9bd
commit 33bda2ca26
1 changed files with 0 additions and 35 deletions

View File

@ -1,35 +0,0 @@
(ns status-im.handlers.server
(:require [re-frame.core :refer [subscribe dispatch dispatch-sync]]
[status-im.utils.utils :refer [http-post]]
[taoensso.timbre :as log]
[status-im.utils.scheduler :as sch]))
(defn sign-up
[db phone-number message-id handler]
(let [current-account-id (get db :accounts/current-account-id)
{:keys [public-key address]} (get-in db [:accounts/accounts current-account-id])]
(log/debug "signing up with public-key" public-key "and phone " phone-number)
(http-post "sign-up" {:phone-number phone-number
:whisper-identity public-key
:address address}
(fn [body]
(log/debug body)
(dispatch [:set-message-status message-id :seen])
(handler))
(fn [_]
(sch/execute-later
#(dispatch [:sign-up phone-number message-id])
(sch/s->ms 1))))
db))
(defn sign-up-confirm
[confirmation-code message-id handler]
(http-post "sign-up-confirm"
{:code confirmation-code}
(fn [body]
(dispatch [:set-message-status message-id :seen])
(handler body))
(fn [_]
(sch/execute-later
#(dispatch [:sign-up-confirm confirmation-code message-id])
(sch/s->ms 1)))))