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

"De-regexify" trim-leading.

Browse source
This commit is contained in:
Jean Niklas L'orange 2013-01-24 17:20:09 +01:00
parent 273544db08
commit 133a5a757a
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/leiningen/jar.clj
View file

@ -51,7 +51,10 @@
(defmulti ^:private copy-to-jar (fn [project jar-os acc spec] (:type spec)))
(defn- trim-leading [s to-trim]
(.replaceAll s (str "^" (Pattern/quote to-trim)) ""))
(let [size (.length to-trim)]
(if (.startsWith s to-trim)
(.substring s size)
s)))
(defmethod copy-to-jar :path [project jar-os acc spec]
(when-not (acc (:path spec))