From b00bc71c1c1eff62c5113682123175e662485288 Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Tue, 13 Oct 2020 16:57:04 +0200 Subject: [PATCH] Example [skip ci] --- examples/set_pom_version.clj | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/examples/set_pom_version.clj b/examples/set_pom_version.clj index 1c857e24..c97a602d 100755 --- a/examples/set_pom_version.clj +++ b/examples/set_pom_version.clj @@ -22,8 +22,10 @@ (def xml (xml/parse-str (slurp pom-xml))) (defn update-version [elt] - (if (= :version (:tag elt)) - (assoc elt :content version) + (if-let [t (:tag elt)] + (if (= "version" (name t)) + (assoc elt :content version) + elt) elt)) (println