Fix mistaken uses of non-side-effecting when.

technomancy · Nov 17, 2019 · 3f68a76 · 3f68a76
1 parent 88fad0e
commit 3f68a76
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/src/leiningen/deploy.clj b/src/leiningen/deploy.clj
@@ -162,7 +162,7 @@
   [version f]
   (let [pattern (re-pattern (format "%s-(\\p{Alnum}*)\\.%s" version (extension f)))
         [_ classifier-of] (re-find pattern f)]
-    (when-not (empty? classifier-of)
+    (if-not (empty? classifier-of)
       classifier-of)))
 
 (defn- fail-on-empty-project [project]

diff --git a/src/leiningen/jar.clj b/src/leiningen/jar.clj
@@ -276,7 +276,7 @@
 
 (defn- get-jar-filename*
   [project uberjar?]
-  (get-classified-jar-filename project (when uberjar? :standalone)))
+  (get-classified-jar-filename project (if uberjar? :standalone)))
 
 (defn get-jar-filename [project & [uberjar?]]
   (get-jar-filename* (preprocess-project project) uberjar?))

diff --git a/src/leiningen/vcs.clj b/src/leiningen/vcs.clj
@@ -88,7 +88,7 @@
           tag (if prefix
                 (str prefix version)
                 version)
-          cmd (->> ["git" "tag" (when sign? "--sign") tag (when annotate? "-a") "-m" (str "Release " version)]
+          cmd (->> ["git" "tag" (if sign? "--sign") tag (if annotate? "-a") "-m" (str "Release " version)]
                    (filter some?))]
       (apply eval/sh-with-exit-code "Couldn't tag" cmd))))