public
/
PriceBot
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Print what we're getting for the auth token

This commit is contained in:
niten 2022-06-20 15:41:33 -07:00
parent 93a54b9c1b
commit 30637bdead
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/pricebot/core.clj
View File

@ -193,6 +193,12 @@
"available: " (pprint-to-string resolved))) "available: " (pprint-to-string resolved)))
:else resolved))) :else resolved)))
(defn pthru [label o]
(println (str "************ START " label))
(clojure.pprint/pprint o)
(println (str "************ END " label))
o)
(defn -main [& args] (defn -main [& args]
(let [required-keys [:exchange-host (let [required-keys [:exchange-host
:currency :currency
@ -206,7 +212,7 @@
bebot-auth-token-file bebot-auth-token-file
bebot-channel-id bebot-channel-id
notify-user]} (get-args required-keys args)] notify-user]} (get-args required-keys args)]
(let [logger (bebot-log/make-logger bebot-url (slurp bebot-auth-token-file) bebot-channel-id notify-user) (let [logger (bebot-log/make-logger bebot-url (pthru "AUTH_TOKEN" (slurp bebot-auth-token-file)) bebot-channel-id notify-user)
checks (create-checks logger) checks (create-checks logger)
bot (reify-bot exchange-host (-> currency str/lower-case keyword)) bot (reify-bot exchange-host (-> currency str/lower-case keyword))
shutdown (chan)] shutdown (chan)]