luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use pr-str in tasks

Browse source
This commit is contained in:
Michiel Borkent 2021-04-12 10:35:41 +02:00
parent d2e137d5d1
commit e86aac02f9
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/babashka/impl/tasks.clj
View file

@ -103,12 +103,15 @@
(map? task) (map? task)
(let [t (:task task)] (let [t (:task task)]
(assemble-task-1 task-name t parallel? last? (:depends task))) (assemble-task-1 task-name t parallel? last? (:depends task)))
:else (let [prog (wrap-depends task depends)] :else (let [task (pr-str task)
prog (wrap-depends task depends)]
(wrap-def task-name prog parallel? last?))))) (wrap-def task-name prog parallel? last?)))))
(defn format-task [init prog] (defn format-task [init prog]
(format " (format "
(require '[babashka.tasks :refer [shell clojure]]) (require '[babashka.tasks :as tasks])
(def clojure tasks/clojure)
(def shell tasks/shell)
%s %s
%s" %s"
(str init) (str init)