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

Tasks: fix edge case

Browse source
This commit is contained in:
Michiel Borkent 2021-05-30 12:30:06 +02:00
parent 35874fa5ce
commit 82625b57dd
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -158,6 +158,7 @@
(format " (format "
(let [chans (filter babashka.tasks/-chan? %s)] (let [chans (filter babashka.tasks/-chan? %s)]
(loop [cs chans] (loop [cs chans]
(when (seq cs)
(let [[v p] (clojure.core.async/alts!! cs) (let [[v p] (clojure.core.async/alts!! cs)
[task-name v] v [task-name v] v
cs (filterv #(not= p %%) cs) cs (filterv #(not= p %%) cs)
@ -168,7 +169,6 @@
(throw (ex-info (ex-message v) (throw (ex-info (ex-message v)
{:babashka/exit 1 {:babashka/exit 1
:data (ex-data v)}))) :data (ex-data v)})))
(when (seq cs)
(recur cs)))))" deps) (recur cs)))))" deps)
"") "")
#_(format "(def %s (babashka.tasks/-wait %s))" dep dep)) #_(format "(def %s (babashka.tasks/-wait %s))" dep dep))