@@ -20,7 +20,9 @@
|
||||
(loop [os (seq overrides)
|
||||
loc zloc]
|
||||
(if-some [[[k v] & xs] os]
|
||||
(recur xs (z/assoc loc k v))
|
||||
(do (printf "override dep %s with %s\n"
|
||||
(pr-str k) (pr-str v))
|
||||
(recur xs (z/assoc loc k v)))
|
||||
loc)))
|
||||
|
||||
(defn args->overrides [args]
|
||||
|
||||
Reference in New Issue
Block a user