fix logic and refactor

cloverage/src/cloverage/coverage.clj

@@ -290,21 +290,20 @@
 
 (defn- coverage-under? [forms failure-threshold line-failure-threshold form-failure-threshold]
   (let [{:keys [percent-lines-covered percent-forms-covered]} (rep/total-stats forms)]
-    (when (pos? failure-threshold)
+    (if (pos? failure-threshold)
       (let [pct-covered (min percent-lines-covered percent-forms-covered)
             failed?     (< pct-covered failure-threshold)]
         (when failed?
           (println "Failing build as coverage is below threshold of" failure-threshold "%"))
-        failed?))
-     (when (or (pos? line-failure-threshold) (pos? form-failure-threshold))
-      (let [line-failed?     (< percent-lines-covered line-failure-threshold)
-            form-failed?     (< percent-forms-covered form-failure-threshold)
-            failed?          (or line-failed? form-failed?)]
-        (when failed?
-          (if line-failed?
-            (println "Failing build as line coverage is below threshold of" line-failure-threshold "%")
-            (println "Failing build as form coverage is below threshold of" form-failure-threshold "%")))
-        failed?))))
+        failed?)
+      (when (or (pos? line-failure-threshold) (pos? form-failure-threshold))
+       (let [line-failed?     (< percent-lines-covered line-failure-threshold)
+             form-failed?     (< percent-forms-covered form-failure-threshold)]
+         (when line-failed?
+             (println "Failing build as line coverage is below threshold of" line-failure-threshold "%"))
+         (when form-failed?
+             (println "Failing build as form coverage is below threshold of" form-failure-threshold "%"))
+         (or line-failed? form-failed?))))))
 
 (defn run-main
   [[{:keys [debug? fail-threshold line-fail-threshold form-fail-threshold help?], :as opts} add-nses help] project-opts]