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

Continue loading hooks if one happens to fail.

Browse source
This commit is contained in:
Phil Hagelberg 2011-02-13 17:17:06 -08:00
parent 727781e6bf
commit 583431cc06
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/leiningen/core.clj
View file

@ -135,14 +135,13 @@
(namespaces-matching "leiningen.hooks")))))
(defn- load-hooks [project]
(try (doseq [n (hook-namespaces project)]
(require n))
(catch Exception e
(when-not (empty? (.list (File. "lib")))
(println "Warning: problem requiring hooks:" (.getMessage e))
(when (System/getenv "DEBUG")
(.printStackTrace e))
(println "...continuing without hooks completely loaded.")))))
(doseq [n (hook-namespaces project)]
(try (require n)
(catch Exception e
(when-not (empty? (.list (File. "lib")))
(println "Warning: problem requiring" n "hook:" (.getMessage e))
(when (System/getenv "DEBUG")
(.printStackTrace e)))))))
(defn user-init []
(let [init-file (File. (home-dir) "init.clj")]