autoprop: include tasks in wake failure print

This commit is contained in:
fang 2021-12-16 17:33:48 +01:00
parent c32f7bf408
commit ba01f456a4
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972

View File

@ -219,14 +219,16 @@
|= [=wire sign=sign-arvo] |= [=wire sign=sign-arvo]
^- (quip card _this) ^- (quip card _this)
?: ?=([%build ~] wire) ?: ?=([%build ~] wire)
:: on-wake, build all tasks whose time has come
::
?> ?=(%wake +<.sign) ?> ?=(%wake +<.sign)
?^ error.sign
((slog 'on-wake build failed' u.error.sign) ~ this)
=/ tasks=(list @ta) =/ tasks=(list @ta)
%+ murn ~(tap by make) %+ murn ~(tap by make)
|= [name=@ta next=(unit @da) task] |= [name=@ta next=(unit @da) task]
?~ next ~ ?~ next ~
?:((lte u.next now.bowl) (some name) ~) ?:((lte u.next now.bowl) (some name) ~)
?^ error.sign
((slog 'on-wake build failed' >tasks< u.error.sign) ~ this)
:: ::
=| cards=(list card) =| cards=(list card)
|- |-
@ -239,6 +241,7 @@
?. ?=(%writ +<.sign) ?. ?=(%writ +<.sign)
~& [dap.bowl %unexpected-sign +<.sign] ~& [dap.bowl %unexpected-sign +<.sign]
[~ this] [~ this]
:: on-writ, bump build timers for all affected tasks
:: ::
=/ tasks=(list @ta) =/ tasks=(list @ta)
%+ murn ~(tap by make) %+ murn ~(tap by make)