subtask-help-for expects a map, so let's give it one.
This commit is contained in:
parent
efe16d5dee
commit
43bb201e24
1 changed files with 5 additions and 4 deletions
|
@ -30,10 +30,11 @@
|
|||
(formatted-docstring command docstring padding))))
|
||||
|
||||
(defn- get-subtasks-and-docstrings-for [task]
|
||||
(map (fn [subtask]
|
||||
(let [m (meta subtask)]
|
||||
[(str (:name m)) (first (.split (:doc m "") "\n"))]))
|
||||
(:subtasks (meta task))))
|
||||
(into {}
|
||||
(map (fn [subtask]
|
||||
(let [m (meta subtask)]
|
||||
[(str (:name m)) (first (.split (:doc m "") "\n"))]))
|
||||
(:subtasks (meta task)))))
|
||||
|
||||
(defn subtask-help-for
|
||||
[task-ns task]
|
||||
|
|
Loading…
Reference in a new issue