luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2026-02-13 14:55:17 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix reflection warnings

Browse source
This commit is contained in:
Tommi Reiman 2019-03-01 22:16:29 +02:00
parent 998bf4a0d4
commit a44267ba85
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
modules/reitit-core/src/reitit/trie.cljc
View file

@ -61,8 +61,8 @@
(case (get s to) (case (get s to)
\{ (let [to' (or (str/index-of s "}" to) (ex/fail! (str "Unclosed brackets: " (pr-str s))))] \{ (let [to' (or (str/index-of s "}" to) (ex/fail! (str "Unclosed brackets: " (pr-str s))))]
(if (= \* (get s (inc to))) (if (= \* (get s (inc to)))
(recur (concat ss (-static from to) (-catch-all (inc to) to')) (inc to') (inc to')) (recur (concat ss (-static from to) (-catch-all (inc to) to')) (long (inc to')) (long (inc to')))
(recur (concat ss (-static from to) (-wild to to')) (inc to') (inc to')))) (recur (concat ss (-static from to) (-wild to to')) (long (inc to')) (long (inc to')))))
\: (let [to' (or (str/index-of s "/" to) (count s))] \: (let [to' (or (str/index-of s "/" to) (count s))]
(if (= 1 (- to' to)) (if (= 1 (- to' to))
(recur ss from (inc to)) (recur ss from (inc to))