throw exception when mv source does not exist; fixes #325

boot-clj · Oct 28, 2015 · 6d89dc7 · 6d89dc7
1 parent 5fdd501
commit 6d89dc7
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/boot/pod/src/boot/tmpdir.clj b/boot/pod/src/boot/tmpdir.clj
@@ -95,8 +95,9 @@
   (mv [this from-path to-path]
     (if (= from-path to-path)
       this
-      (if-let [f (assoc (get-in this [:tree from-path]) :path to-path)]
-        (update-in this [:tree] #(-> % (assoc to-path f) (dissoc from-path)))
+      (if-let [from (get-in this [:tree from-path])]
+        (update-in this [:tree] #(-> % (assoc to-path (assoc from :path to-path))
+                                       (dissoc from-path)))
         (throw (Exception. (format "not in fileset (%s)" from-path))))))
   (cp [this src-file dest-tmpfile]
     (let [hash (digest/md5 src-file)