diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/weepinbell/retriever.clj | 20 |
1 files changed, 10 insertions, 10 deletions
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."} |