We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 8f3e56b + 37fa9fb commit 246cab5Copy full SHA for 246cab5
boot/core/src/boot/task_helpers.clj
@@ -117,12 +117,14 @@
117
(defmethod sift-action :move
118
[_ _ args]
119
(let [proc #(reduce-kv string/replace % args)
120
- reducer (fn [xs k v]
121
- (let [k (proc k)]
122
- (assoc xs k (assoc v :path k))))]
+ mkreducer (fn [dir]
+ (fn [xs k v]
+ (let [k (proc k)]
123
+ (assoc xs k (assoc v :path k :dir dir)))))]
124
(fn [fileset]
- (->> (partial reduce-kv reducer {})
125
- (update-in fileset [:tree])))))
+ (let [dir (#'core/get-add-dir fileset #{:resource})]
126
+ (->> (partial reduce-kv (mkreducer dir) {})
127
+ (update-in fileset [:tree]))))))
128
129
(defmethod sift-action :add-jar
130
[v? _ args]
0 commit comments