logs: print server start message; print data when it's corrupted

2 files changed, 4 insertions, 2 deletions

diff --git a/src/weepinbell/core.clj b/src/weepinbell/core.clj
index 29000c3..f56a5b5 100644
--- a/src/weepinbell/core.clj
+++ b/src/weepinbell/core.clj
@@ -7,6 +7,7 @@
             [weepinbell.webhook :as webhook]
             [weepinbell.storage.edn-storage :as edn]
             [clojure.core.async :refer [chan]]
+            [taoensso.timbre :as timbre]
             [weepinbell.storage.spec])
   (:gen-class)) ;; Essential for "lein uberjar"
 
@@ -29,5 +30,6 @@
   ;; Start receiver server
   ;; Check for a PORT environment variable, default to 3000
   (let [port (Integer/parseInt (or (:port config) (System/getenv "PORT") "3000"))]
-    (run-server (app wmc store config) {:port port :join? true})))
+    (run-server (app wmc store config) {:port port :join? true})
+    (timbre/info "weepinbell started, listening on" port)))
 
diff --git a/src/weepinbell/wrapper.clj b/src/weepinbell/wrapper.clj
index 5114489..add58be 100644
--- a/src/weepinbell/wrapper.clj
+++ b/src/weepinbell/wrapper.clj
@@ -74,6 +74,6 @@
               :microformats mf
               :extra {:proxied-photo proxied-photo}}]
     (when-not (s/valid? ::webmention-wrapped data)
-      (timbre/warn "webmention data corrupted before writing to storage"))
+      (timbre/warn "webmention data corrupted before writing to storage" data))
     data))