Handle/report twitter errors

4 years ago · 981444ad7c
parent d72b755485
commit 981444ad7c
1 changed files with 5 additions and 3 deletions
--- a/mastodon_bot/core.cljs
+++ b/mastodon_bot/core.cljs
@ -179,9 +179,11 @@

 (defn post-tweets [last-post-time]
  (fn [error tweets response]
-    (->> (js->edn tweets)
-         (map parse-tweet)
-         (post-items last-post-time))))
+    (if (nil? error)
+      (->> (js->edn tweets)
+           (map parse-tweet)
+           (post-items last-post-time))
+      (exit-with-error error))))

 (defn strip-utm [news-link]
  (first (string/split news-link #"\?utm")))