feat: respond with JSON when webmention query is not found

1 files changed, 6 insertions, 4 deletions

diff --git a/src/weepinbell/retriever.clj b/src/weepinbell/retriever.clj
index ee9239e..69d9d69 100644
--- a/src/weepinbell/retriever.clj
+++ b/src/weepinbell/retriever.clj
@@ -18,18 +18,20 @@
                :else             identity)] ;; Use identity instead of not-empty for "no filter"
     (respond-json (filter pred data))))
 
-(defn respond-json-or-404 [data]
+(defn respond-webmention-json [data]
   (if data
     (respond-json data)
-    (respond-json {:message "webmention not found"} 404)))
+    (respond-json {:status 404
+                   :message "Webmention does not exist or is pending for verification."}
+                  404)))
 
 (defn retrieve-by-id
   "Get one specific webmention by ID."
   [id]
-  (respond-json-or-404 (storage/get-wm id)))
+  (respond-webmention-json (storage/get-wm id)))
 
 (defn retrieve-by-url
   "Get one specific webmention by source and target."
   [source target]
-  (respond-json-or-404 (storage/get-wm source target)))
+  (respond-webmention-json (storage/get-wm source target)))