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

Catch qualifier in version-map->string.

Browse source
This commit is contained in:
Phil Hagelberg 2014-05-23 21:16:34 -07:00
parent a8a1f5bd99
commit 3f4b2df764
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/leiningen/release.clj
View file

@ -22,7 +22,9 @@
"Given a version-map, return a string representing the version." "Given a version-map, return a string representing the version."
[version-map] [version-map]
(let [{:keys [major minor patch qualifier]} version-map] (let [{:keys [major minor patch qualifier]} version-map]
(str major "." minor "." patch))) (if qualifier
(str major "." minor "." patch "-" qualifier)
(str major "." minor "." patch))))
(defn increment-version (defn increment-version
"Given version as a map of the sort returned by parse-semantic-version, return "Given version as a map of the sort returned by parse-semantic-version, return