From 7bf0dbf6f54c40751db9a0986e14f23b78abb564 Mon Sep 17 00:00:00 2001
From: eltrac <hi@eltr.ac>
Date: Mon, 20 Apr 2026 11:26:41 +0800
Subject: fix: /api/mentions returns null

---
 src/weepinbell/retriever.clj | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'src')

diff --git a/src/weepinbell/retriever.clj b/src/weepinbell/retriever.clj
index bcbdd98..3db4aa4 100644
--- a/src/weepinbell/retriever.clj
+++ b/src/weepinbell/retriever.clj
@@ -44,10 +44,10 @@
   ([domain]
     (by-domain domain nil))
   ([domain typ]
-    (->> (storage/get-wms-by-domain domain)
-         wrap-response-list
-         (filter-response-by-mftype typ)
-         respond-json)))
+    (cond->> (storage/get-wms-by-domain domain)
+             true wrap-response-list
+             typ  (filter-response-by-mftype typ)
+             true respond-json)))
 
 (defn by-url
   "Get webmention sent to a particular URL."
@@ -55,12 +55,12 @@
     (by-url url nil))
   ([url typ]
     (if url
-    (->> (get-domain url)
-         storage/get-wms-by-domain
-         (filter #(= url (get-in % [:webmention :target])))
-         wrap-response-list
-         (filter-response-by-mftype typ)
-         respond-json)
+    (cond->> (get-domain url)
+             true storage/get-wms-by-domain
+             true (filter #(= url (get-in % [:webmention :target])))
+             true wrap-response-list
+             typ  (filter-response-by-mftype typ)
+             true respond-json)
     ;; if no url query is passed
     (respond-json {:status 400
                    :message "Missing URL. Specify target URL whose webmentions you are querying."}
-- 
cgit v1.2.3