Transcude names, fix ataraxy routes

This commit is contained in:
Tommi Reiman 2017-08-22 13:10:16 +03:00
parent dd6d0d5a1c
commit f893be3d00
2 changed files with 6 additions and 6 deletions

View file

@ -202,10 +202,10 @@
"whoami" :test/route41
"login" :test/route51}
"v2/" {"whoami" :test/route1
["users/" :user-id "/"] {"datasets" :test/route2
"devices" :test/route25
"topics" {"/bulk" :test/route29
"" :test/route45}}
["users/" :user-id] {"/datasets" :test/route2
"/devices" :test/route25
"/topics" {"/bulk" :test/route29
"" :test/route45}}
"public/" {["projects/" :project-id] {"/datasets" :test/route3
"" :test/route27}
#_#_"messages/dataset/bulk" :test/route20
@ -264,7 +264,7 @@
"/v2/" {"whoami" [:test/route1]
["users/" user-id] {"/datasets" [:test/route2 user-id]
"/devices" [:test/route25 user-id]
"topics/" {"bulk" [:test/route29 user-id]
"/topics" {"/bulk" [:test/route29 user-id]
"" [:test/route45 user-id]}}
"public/" {["projects/" project-id] {"/datasets" [:test/route3 project-id]
"" [:test/route27 project-id]}

View file

@ -86,7 +86,7 @@
(if name #{name}))
(defn find-names [routes opts]
(into [] (keep #(-> % second :name) routes)))
(into [] (keep #(-> % second :name)) routes))
(defn compile-route [[p m :as route] {:keys [compile] :as opts}]
[p m (if compile (compile route opts))])