luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-17 16:31:11 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

move out of public api

Browse source
This commit is contained in:
Tommi Reiman 2024-08-27 14:06:09 +03:00
parent 517ae8ffc3
commit d8a8bce272
1 changed files with 17 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
modules/reitit-ring/src/reitit/ring.cljc
View file

@ -97,6 +97,23 @@
{:no-doc true
:handler default-options-handler})
(defn- comp-handlers
"Compose two ring handlers such that if the first has an empty response
the second will be invoked."
[handler1 handler2]
(let [single-arity (fn [request]
(or (handler1 request) (handler2 request)))
multi-arity (fn [request respond raise]
(handler1 request (fn [response]
(if response
(respond response)
(handler2 request respond raise))) raise))]
(fn
([request]
(single-arity request))
([request respond raise]
(multi-arity request respond raise)))))
;;
;; public api
;;
@ -133,25 +150,6 @@
" Use :reitit.ring/default-options-endpoint instead.")))
(r/router data opts))))
(defn- comp-handlers
"Compose two ring handlers such that if the first has an empty response
the second will be invoked."
([handler]
handler)
([handler1 handler2]
(let [single-arity (fn [request]
(or (handler1 request) (handler2 request)))
multi-arity (fn [request respond raise]
(handler1 request (fn [response]
(if response
(respond response)
(handler2 request respond raise))) raise))]
(fn
([request]
(single-arity request))
([request respond raise]
(multi-arity request respond raise))))))
(defn routes
"Create a ring handler by combining several handlers into one."
{:arglists '([& handlers])}