Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Accept string for :license. Fixes #853.

  • Loading branch information...
commit ceac828e0302ea1d2afdffa98c03ff043263e7b4 1 parent 1edc6cc
@technomancy authored
Showing with 5 additions and 3 deletions.
  1. +5 −3 src/leiningen/pom.clj
View
8 src/leiningen/pom.clj
@@ -179,9 +179,11 @@
(defmethod xml-tags ::license
([_ opts]
(and opts
- (if-let [tags (seq (for [key [:name :url :distribution :comments]
- :let [val (opts key)] :when val]
- [key (name val)]))]
+ (if-let [tags (if (string? opts)
+ [:name opts]
+ (seq (for [key [:name :url :distribution :comments]
+ :let [val (opts key)] :when val]
+ [key (name val)])))]
[:licenses [:license tags]]))))
(defn- resource-tags [project type]
Please sign in to comment.
Something went wrong with that request. Please try again.