Rename variable handle -> handler

This commit is contained in:
Fredrik Vaeng Røtnes 2022-12-05 13:06:27 +00:00 committed by GitHub
parent 3d5e0b154c
commit edee97a550
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -56,15 +56,15 @@
childs))))
(def default-options-handler
(let [handle (fn [request]
(let [methods (->> request get-match :result (keep (fn [[k v]] (if v k))))
allow (->> methods (map (comp str/upper-case name)) (str/join ","))]
{:status 200, :body "", :headers {"Allow" allow}}))]
(let [handler (fn [request]
(let [methods (->> request get-match :result (keep (fn [[k v]] (if v k))))
allow (->> methods (map (comp str/upper-case name)) (str/join ","))]
{:status 200, :body "", :headers {"Allow" allow}}))]
(fn
([request]
(handle request))
(handler request))
([request respond _]
(respond (handle request))))))
(respond (handler request))))))
(def default-options-endpoint
{:no-doc true