From 72a0ad2a5b102cfbecb0b41001ea68e3c4dcc14d Mon Sep 17 00:00:00 2001
From: Tommi Reiman <tommi@iki.fi>
Date: Thu, 7 Mar 2019 10:54:01 +0200
Subject: [PATCH] Push ns-records into user ns

---
 modules/reitit-core/src/reitit/trie.cljc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/modules/reitit-core/src/reitit/trie.cljc b/modules/reitit-core/src/reitit/trie.cljc
index 11a471d5..526fc7a4 100644
--- a/modules/reitit-core/src/reitit/trie.cljc
+++ b/modules/reitit-core/src/reitit/trie.cljc
@@ -300,7 +300,8 @@
            (map-parameters keys)
            (let [sym (gensym "PathParams")
                  ctor (symbol (str "map->" sym))]
-             (eval `(do (defrecord ~sym ~(mapv (comp symbol name) keys)) (~ctor {})))))))))
+             (binding [*ns* (find-ns 'user)]
+               (eval `(do (defrecord ~sym ~(mapv (comp symbol name) keys)) (~ctor {}))))))))))
 
 (defn insert
   "Returns a trie with routes added to it."