From 4411ae6ecae1173e5d5bbd518b7c004a7606915c Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Sat, 18 Apr 2020 23:52:19 +0200 Subject: [PATCH] fix --- examples/pom_version.clj | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/examples/pom_version.clj b/examples/pom_version.clj index bd842e6f..164bfe69 100755 --- a/examples/pom_version.clj +++ b/examples/pom_version.clj @@ -14,9 +14,14 @@ (defn pom-version ([] (pom-version "pom.xml")) ([path] - (->> (xml-seq (xml/parse-str (slurp path))) - (filter #(tag-name? % "version")) - first - tag-content-str))) + (->> + (slurp path) + (xml/parse-str) + (xml-seq ) + (filter #(tag-name? % "version")) + first + tag-content-str))) -(pom-version) +(if-let [arg (first *command-line-args*)] + (pom-version arg) + (pom-version))