Configurable blacklist for tokens
This commit is contained in:
parent
7ff641685f
commit
8610760938
|
@ -41,4 +41,7 @@
|
||||||
:hubspot-contact-create-enabled false
|
:hubspot-contact-create-enabled false
|
||||||
|
|
||||||
;; needeed when :hubspot-contact-create-enabled
|
;; needeed when :hubspot-contact-create-enabled
|
||||||
:hubspot-api-key "xxxxxxx-xxxx-x-xxxx-xxxx"}
|
:hubspot-api-key "xxxxxxx-xxxx-x-xxxx-xxxx"
|
||||||
|
|
||||||
|
;; used for blacklisting tokens from token registry data
|
||||||
|
:token-blacklist #{}}
|
||||||
|
|
|
@ -6,13 +6,21 @@
|
||||||
|
|
||||||
(def token-data-atom (atom {}))
|
(def token-data-atom (atom {}))
|
||||||
|
|
||||||
|
(defn token-blacklisted?
|
||||||
|
[tla]
|
||||||
|
(let [blacklist (env :token-blacklist #{})]
|
||||||
|
(blacklist tla)))
|
||||||
|
|
||||||
|
|
||||||
(defn update-data []
|
(defn update-data []
|
||||||
(let [test-data (env :testnet-token-data)
|
(let [test-data (env :testnet-token-data)
|
||||||
token-data
|
token-data
|
||||||
(if (and (env :on-testnet true)
|
(if (and (env :on-testnet true)
|
||||||
test-data)
|
test-data)
|
||||||
test-data
|
test-data
|
||||||
(token-reg/load-parity-tokenreg-data))]
|
(into {}
|
||||||
|
(filter (fn [[tla _]] (not (token-blacklisted? tla)))
|
||||||
|
(token-reg/load-parity-tokenreg-data))))]
|
||||||
(reset! token-data-atom token-data)))
|
(reset! token-data-atom token-data)))
|
||||||
|
|
||||||
(mount/defstate
|
(mount/defstate
|
||||||
|
|
Loading…
Reference in New Issue