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

Expose version-satisfies?. Shouldn't be internal.

Browse source
This commit is contained in:
Phil Hagelberg 2014-10-23 10:55:30 -07:00
parent 7cbd5bfa7d
commit 0f71e1b645
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
leiningen-core/src/leiningen/core/main.clj
View file

@ -320,7 +320,7 @@ These get replaced with the corresponding values from the project map."
(.load reader))
(.getProperty "version")))))
(defn ^:internal version-satisfies? [v1 v2]
(defn version-satisfies? [v1 v2]
(let [v1 (map #(Integer. %) (re-seq #"\d+" (first (string/split v1 #"-" 2))))
v2 (map #(Integer. %) (re-seq #"\d+" (first (string/split v2 #"-" 2))))]
(loop [versions (map vector v1 v2)