Check :target-path before writing stale file. Fixes #589.
This commit is contained in:
parent
6d66921151
commit
a9c2f9effe
1 changed files with 1 additions and 1 deletions
|
@ -54,7 +54,7 @@
|
||||||
(str/join "+" (map name keys)))
|
(str/join "+" (map name keys)))
|
||||||
current-value (pr-str (map (juxt identity project) keys))
|
current-value (pr-str (map (juxt identity project) keys))
|
||||||
old-value (and (.exists file) (slurp file))]
|
old-value (and (.exists file) (slurp file))]
|
||||||
(when (not= current-value old-value)
|
(when (and (:target-path project) (not= current-value old-value))
|
||||||
(apply f args)
|
(apply f args)
|
||||||
(.mkdirs (.getParentFile file))
|
(.mkdirs (.getParentFile file))
|
||||||
(spit file (doall current-value)))))
|
(spit file (doall current-value)))))
|
||||||
|
|
Loading…
Reference in a new issue