yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove "checksum" verbiage from when-stale.

Browse source
This commit is contained in:
Phil Hagelberg 2012-05-07 17:04:41 -07:00
parent 10a0da1991
commit 6543bde5d9
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
leiningen-core/src/leiningen/core/classpath.clj
View file

@ -49,14 +49,12 @@
(.mkdirs f)
(io/copy (.getInputStream jar entry) f)))))
(defn- checksum-file [project keys]
(io/file (:target-path project) "checksums" (str/join "+" (map name keys))))
(defn when-stale
"Call f with args when keys in project.clj have changed since the last run.
Stores value of project keys in .lein/checksums directory."
Stores value of project keys in stale directory inside :target-path."
[keys project f & args]
(let [file (checksum-file project keys)
(let [file (io/file (:target-path project) "stale"
(str/join "+" (map name keys)))
current-value (pr-str (map (juxt identity project) keys))
old-value (and (.exists file) (slurp file))]
(when (not= current-value old-value)