From 6625cf31d7e1af49a6ee9250baa15b57daf18933 Mon Sep 17 00:00:00 2001
From: Dmitri Sotnikov <dmitri.sotnikov@gmail.com>
Date: Sun, 7 Jan 2018 16:36:26 -0500
Subject: [PATCH] allow custom default-handler to ring-router

---
 modules/reitit-ring/src/reitit/ring.cljc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/modules/reitit-ring/src/reitit/ring.cljc b/modules/reitit-ring/src/reitit/ring.cljc
index 7b4c332e..fdd15e75 100644
--- a/modules/reitit-ring/src/reitit/ring.cljc
+++ b/modules/reitit-ring/src/reitit/ring.cljc
@@ -18,8 +18,9 @@
 (defn ring-handler
   "Creates a ring-handler out of a ring-router.
   Supports both 1 (sync) and 3 (async) arities."
-  [router]
-  (let [default-handler (constantly nil)]
+  ([router]
+    (ring-handler router (constantly nil)))
+  ([router default-handler]
     (with-meta
       (fn
         ([request]