ST
(defn ff []
(if true (fn f1 []) (fn f2 [])))
Size: a a a
ST
(defn ff []
(if true (fn f1 []) (fn f2 [])))
MB
ST
MB
ST
MB
ST
MB
ST
(fn
(partial
(comp
MB
ST
(defn- fn'route->path
[reitit-router, route-tag]
(let [match (reitit/match-by-name reitit-router, route-tag)]
(if (reitit/partial-match? match)
; Route with path parameters
(let [required (:required match)]
(fn param-route->path
([]
(reitit/match-by-name! reitit-router, route-tag))
([params]
(let [match (reitit/match-by-name! reitit-router, route-tag, (select-keys params required))]
(if (== (count required) (count params))
(reitit/match->path match)
(reitit/match->path match (remove #(required (key %)) params)))))))
; Route without path parameters
(fn simple-route->path
([]
(reitit/match->path match))
([params]
(reitit/match->path match params))))))
MB
MB
ST
ST
MB
DL
DL
ST