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

Tasks: get rid of res local

Browse source
This commit is contained in:
Michiel Borkent 2021-05-02 23:12:48 +02:00
parent d0d18f9837
commit cf570cd913
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -135,14 +135,14 @@
(defn deref-task [dep]
(format "(def %s (babashka.tasks/-wait %s))" dep dep))
(defn wrap-enter-leave [prog enter leave]
(defn wrap-enter-leave [task-name prog enter leave]
(str (pr-str enter) "\n"
(if leave
(format "
(let [res %s]
(let [%s %s]
%s
res)"
prog (pr-str leave))
%s)"
task-name prog (pr-str leave) task-name)
prog)))
(defn wrap-depends [prog depends parallel?]
@ -171,7 +171,7 @@
task-map)]
(if (qualified-symbol? task)
(let [prog (format "(apply %s *command-line-args*)" task)
prog (wrap-enter-leave prog enter leave)
prog (wrap-enter-leave task-name prog enter leave)
prog (wrap-depends prog depends parallel?)
prog (wrap-def task-map prog parallel? last?)
prog (format "
@ -182,7 +182,7 @@
prog)]
prog)
(let [prog (pr-str task)
prog (wrap-enter-leave prog enter leave)
prog (wrap-enter-leave task-name prog enter leave)
prog (wrap-depends prog depends parallel?)
prog (wrap-def task-map prog parallel? last?)]
prog)))))