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