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

80 columns please!

Browse source
This commit is contained in:
Phil Hagelberg 2010-09-21 20:17:12 -07:00
parent 23e7f2a5bb
commit 2241667c54
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/leiningen/help.clj
View file

@ -2,8 +2,8 @@
"Display a list of tasks or help for a given task."
(:use [leiningen.util.ns :only [namespaces-matching]]))
(def tasks (sort (set (filter #(re-find #"^leiningen\.(?!core|util)[^\.]+$" (name %))
(namespaces-matching "leiningen")))))
(def tasks (sort (filter #(re-find #"^leiningen\.(?!core|util)[^\.]+$" (name %))
(namespaces-matching "leiningen"))))
(defn- get-arglists [task]
(for [args (:arglists (meta task))]