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

avoid creating dir only if it is \".\"

Browse source
This commit is contained in:
Shantanu Kumar 2014-06-29 11:22:34 +05:30
parent 527c13b36d
commit 7974dfca0f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/leiningen/new/templates.clj
View file

@ -165,7 +165,7 @@
(let [dir (or *dir* (let [dir (or *dir*
(-> (System/getProperty "leiningen.original.pwd") (-> (System/getProperty "leiningen.original.pwd")
(io/file name) (.getPath)))] (io/file name) (.getPath)))]
(if (or (.isDirectory (io/files dir)) (.mkdir (io/file dir)) *force?*) (if (or (= "." dir) (.mkdir (io/file dir)) *force?*)
(doseq [path paths] (doseq [path paths]
(if (string? path) (if (string? path)
(.mkdirs (template-path dir path data)) (.mkdirs (template-path dir path data))