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

Whitespace fix. I'm crazy like that.

Browse source
This commit is contained in:
Phil Hagelberg 2010-02-01 20:51:35 -08:00
parent 4b773b1835
commit f244a34887
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/leiningen/jar.clj
View file

@ -35,11 +35,10 @@
(let [root (str (unix-path (:root project)) \/)
noroot #(trim-leading-str (unix-path %) root)
[resources classes src]
(map noroot (map project [:resources-path :compile-path :source-path]))]
(map noroot (map project [:resources-path :compile-path :source-path]))]
(doseq [child (file-seq (file (:path spec)))]
(when-not (.isDirectory child)
(let [path (reduce trim-leading-str
(unix-path (str child))
(let [path (reduce trim-leading-str (unix-path (str child))
[root resources classes src "/"])]
(.putNextEntry jar-os (JarEntry. path))
(copy child jar-os))))))