From 5a2ae56991e8103b5a2ede83449e9e29ac340f6d Mon Sep 17 00:00:00 2001 From: Tommi Reiman Date: Tue, 27 Aug 2024 14:06:15 +0300 Subject: [PATCH] simplify --- modules/reitit-ring/src/reitit/ring.cljc | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) diff --git a/modules/reitit-ring/src/reitit/ring.cljc b/modules/reitit-ring/src/reitit/ring.cljc index 878b7376..0da90348 100644 --- a/modules/reitit-ring/src/reitit/ring.cljc +++ b/modules/reitit-ring/src/reitit/ring.cljc @@ -153,16 +153,10 @@ (defn routes "Create a ring handler by combining several handlers into one." {:arglists '([& handlers])} - ([] nil) - ([handler] handler) - ([handler1 handler2] - (cond - (and handler1 handler2) (comp-handlers handler1 handler2) - handler1 handler1 - handler2 handler2 - :else nil)) - ([handler1 handler2 & handlers] - (reduce routes (routes handler1 handler2) handlers))) + ([& [handler1 handler2 & handlers]] + (cond (seq handlers) (reduce routes (routes handler1 handler2) handlers) + (and handler1 handler2) (comp-handlers handler1 handler2) + :else (or handler1 handler2)))) (defn redirect-trailing-slash-handler "A ring handler that redirects a missing path if there is an