Why is auth token missing?

This commit is contained in:
niten 2022-06-20 13:33:13 -07:00
parent 9a75565d95
commit 4b785b610c
2 changed files with 5 additions and 2 deletions

View File

@ -63,7 +63,7 @@ in {
PRICEBOT_EXCHANGE_HOST = cfg.exchange-host; PRICEBOT_EXCHANGE_HOST = cfg.exchange-host;
PRICEBOT_BEBOT_URL = cfg.mattermost-url; PRICEBOT_BEBOT_URL = cfg.mattermost-url;
PRICEBOT_BEBOT_CHANNEL_ID = opts.mattermost-channel-id; PRICEBOT_BEBOT_CHANNEL_ID = opts.mattermost-channel-id;
PRICEBOT_TARGET_CURRENCY = opts.currency; PRICEBOT_CURRENCY = opts.currency;
PRICEBOT_NOTIFY_USER = opts.notify-user; PRICEBOT_NOTIFY_USER = opts.notify-user;
}; };
serviceConfig = { serviceConfig = {

View File

@ -185,7 +185,10 @@
missing (filter (fn [k] (not (get opts k))) keys)] missing (filter (fn [k] (not (get opts k))) keys)]
(cond (:help opts) (exit! 0 (println (:summary opts))) (cond (:help opts) (exit! 0 (println (:summary opts)))
(:errors opts) (exit! 1 (println (str/join \newline (:errors opts)))) (:errors opts) (exit! 1 (println (str/join \newline (:errors opts))))
(not (empty? missing)) (exit! 2 (println (str "missing arguments: " (str/join " " (map name missing))))) (not (empty? missing)) (exit! 2 (println (str "missing arguments: " (str/join " " (map name missing))
\newline
"available: "
(str/join " " (keys opts)))))
:else opts))) :else opts)))
(defn -main [& args] (defn -main [& args]