Handle/report twitter errors

This commit is contained in:
Arnout Engelen 2020-03-22 11:33:48 +01:00
parent d72b755485
commit 981444ad7c

View file

@ -179,9 +179,11 @@
(defn post-tweets [last-post-time] (defn post-tweets [last-post-time]
(fn [error tweets response] (fn [error tweets response]
(if (nil? error)
(->> (js->edn tweets) (->> (js->edn tweets)
(map parse-tweet) (map parse-tweet)
(post-items last-post-time)))) (post-items last-post-time))
(exit-with-error error))))
(defn strip-utm [news-link] (defn strip-utm [news-link]
(first (string/split news-link #"\?utm"))) (first (string/split news-link #"\?utm")))