luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-27 03:48:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix path spec - doesn't have to start with "/"

Browse source
This commit is contained in:
Tommi Reiman 2017-12-27 20:28:25 +02:00
parent 98637f9db5
commit 5c53b6e989
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
modules/reitit-core/src/reitit/spec.cljc
View file

@ -8,8 +8,7 @@
;; routes
;;
(s/def ::path (s/with-gen (s/and string? #(or (str/blank? %) (str/starts-with? % "/")))
#(gen/fmap (fn [s] (str "/" s)) (s/gen string?))))
(s/def ::path (s/with-gen string? #(gen/fmap (fn [s] (str "/" s)) (s/gen string?))))
(s/def ::arg (s/and any? (complement vector?)))
(s/def ::data (s/map-of keyword? any?))
@ -82,7 +81,7 @@
(apply str "Invalid route data:\n\n"
(mapv
(fn [{:keys [path scope data spec]}]
(str "-- On route --------------------\n\n"
(str "-- On route -----------------------\n\n"
(pr-str path) (if scope (str " " (pr-str scope))) "\n\n" (explain spec data) "\n"))
problems)))