Merge pull request #1014 from deduktion/patch-2

Update src/leiningen/with_profile.clj
This commit is contained in:
Michael Klishin 2013-02-18 01:44:23 -08:00
commit bfeae36fb8

View file

@ -59,14 +59,14 @@ For a detailed description of profiles, see `lein help profiles`."
(doseq [profiles (map (partial profiles-in-group project) profile-groups)]
(log/info (format "Performing task '%s' with profile(s): '%s'"
task-name (string/join "," (map name profiles))))
(binding [main/*exit-process?* false]
(binding [log/*exit-process?* false]
(try
(with-profiles* project profiles task-name args)
(catch Exception e
(log/info (format
"Error encountered performing task '%s' with profile(s): '%s'"
task-name (string/join "," (map name profiles))))
(if (and (:exit-code (ex-data e)) (not main/*debug*))
(if (and (:exit-code (ex-data e)) (not log/*debug*))
(log/info (.getMessage e))
(.printStackTrace e))
(swap! failures inc)))))