fix faucet url formatting

This commit is contained in:
Roman Volosovskyi 2017-10-16 22:13:03 +02:00
parent 47c4b9014f
commit af052d2c65
1 changed files with 4 additions and 5 deletions

View File

@ -41,9 +41,8 @@
:to "me"}]))
(log/debug "ignoring command: " command))))))
(def faucet-base-url->url
{"http://faucet.ropsten.be:3001" "http://faucet.ropsten.be:3001/donate/0x%s"
"http://46.101.129.137:3001" "http://46.101.129.137:3001/donate/0x%s"})
(defn faucet-base-url->url [url]
(str url "/donate/0x%s"))
(defn- faucet-response-event [message-id content]
[:received-message
@ -76,7 +75,7 @@
(fn [{:keys [db random-id]} {:keys [params id]}]
(let [{:accounts/keys [accounts current-account-id]} db
current-address (get-in accounts [current-account-id :address])
faucet-url (get faucet-base-url->url (:url params))]
faucet-url (faucet-base-url->url (:url params))]
{:http-get {:url (gstring/format faucet-url current-address)
:success-event-creator (fn [_]
(faucet-response-event