yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

send stack trace through to the nREPL client

Browse source
This commit is contained in:
Ben Booth 2014-02-07 16:58:28 -08:00
parent b15c5666d1
commit 6395e6eb4d
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
leiningen-core/src/leiningen/core/main.clj
View file

@ -5,7 +5,8 @@
[leiningen.core.utils :as utils] [leiningen.core.utils :as utils]
[clojure.java.io :as io] [clojure.java.io :as io]
[clojure.string :as string] [clojure.string :as string]
[bultitude.core :as b])) [bultitude.core :as b]
[clojure.stacktrace :as stacktrace]))
(def aliases {"-h" "help", "-help" "help", "--help" "help", "-?" "help", (def aliases {"-h" "help", "-help" "help", "--help" "help", "-?" "help",
"-v" "version", "-version" "version", "--version" "version", "-v" "version", "-version" "version", "--version" "version",
@ -317,7 +318,7 @@ Get the latest version of Leiningen at http://leiningen.org or by executing
(resolve-and-apply project raw-args)) (resolve-and-apply project raw-args))
(catch Exception e (catch Exception e
(if (or *debug* (not (:exit-code (ex-data e)))) (if (or *debug* (not (:exit-code (ex-data e))))
(.printStackTrace e) (stacktrace/print-cause-trace e)
(when-not (:suppress-msg (ex-data e)) (when-not (:suppress-msg (ex-data e))
(println (.getMessage e)))) (println (.getMessage e))))
(exit (:exit-code (ex-data e) 1)))) (exit (:exit-code (ex-data e) 1))))