Replace with when-let since no else branches

This commit is contained in:
Michael Salihi 2021-12-09 10:48:59 +01:00 committed by GitHub
parent 93e288bf34
commit 673f6dec72
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -206,10 +206,10 @@ First, we need to modify our matching function to support router references:
(deref x) x))
(defn recursive-match-by-path [router path]
(if-let [match (r/match-by-path (<< router) path)]
(when-let [match (r/match-by-path (<< router) path)]
(if-let [subrouter (-> match :data :router <<)]
(let [subpath (subs path (str/last-index-of (:template match) "/"))]
(if-let [submatch (recursive-match-by-path subrouter subpath)]
(when-let [submatch (recursive-match-by-path subrouter subpath)]
(cons match submatch)))
(list match))))
```