vane: downcast all error notifications to %crud

This commit is contained in:
Joe Bryan 2020-02-24 11:09:37 -08:00
parent 8e6dc992da
commit 4cae84d9ac
5 changed files with 46 additions and 6 deletions

View File

@ -917,9 +917,16 @@
::
++ call
|= [=duct dud=(unit goof) type=* wrapped-task=(hobo task)]
?< ?=(^ dud)
::
=/ =task ((harden task) wrapped-task)
::
:: error notifications "downcast" to %crud
::
=? task ?=(^ dud)
~| %crud-in-crud
?< ?=(%crud -.task)
[%crud -.task tang.u.dud]
::
:: %born: set .unix-duct and start draining .queued-events
::
?: ?=(%born -.task)
@ -1057,10 +1064,16 @@
++ call
|= [=duct dud=(unit goof) type=* wrapped-task=(hobo task)]
^- [(list move) _ames-gate]
?< ?=(^ dud)
::
=/ =task ((harden task) wrapped-task)
::
:: error notifications "downcast" to %crud
::
=? task ?=(^ dud)
~| %crud-in-crud
?< ?=(%crud -.task)
[%crud -.task tang.u.dud]
::
=/ event-core (per-event [our now eny scry-gate] duct ames-state)
::
=^ moves ames-state

View File

@ -251,10 +251,16 @@
wrapped-task=(hobo task:able)
==
^- [(list move) _behn-gate]
?< ?=(^ dud)
::
=/ =task:able ((harden task:able) wrapped-task)
::
:: error notifications "downcast" to %crud
::
=? task ?=(^ dud)
~| %crud-in-crud
?< ?=(%crud -.task)
[%crud -.task tang.u.dud]
::
=/ event-core (per-event [our now hen] state)
::
=^ moves state

View File

@ -4068,9 +4068,16 @@
wrapped-task=(hobo task:able)
==
^- [(list move) _..^$]
?< ?=(^ dud)
::
=/ req=task:able ((harden task:able) wrapped-task)
::
:: error notifications "downcast" to %crud
::
=? req ?=(^ dud)
~| %crud-in-crud
?< ?=(%crud -.req)
[%crud -.req tang.u.dud]
::
:: only one of these should be going at once, so queue
::
?: ?=(?(%info %merg %mont) -.req)

View File

@ -1984,9 +1984,16 @@
++ call
|= [=duct dud=(unit goof) type=* wrapped-task=(hobo task:able)]
^- [(list move) _http-server-gate]
?< ?=(^ dud)
::
=/ task=task:able ((harden task:able) wrapped-task)
::
:: error notifications "downcast" to %crud
::
=? task ?=(^ dud)
~| %crud-in-crud
?< ?=(%crud -.task)
[%crud -.task tang.u.dud]
::
:: %crud: notifies us of an event failure
::
?: ?=(%crud -.task)

View File

@ -305,9 +305,16 @@
++ call
|= [=duct dud=(unit goof) type=* wrapped-task=(hobo task:able)]
^- [(list move) _light-gate]
?< ?=(^ dud)
::
=/ task=task:able ((harden task:able) wrapped-task)
::
:: error notifications "downcast" to %crud
::
=? task ?=(^ dud)
~| %crud-in-crud
?< ?=(%crud -.task)
[%crud -.task tang.u.dud]
::
:: %crud: notifies us of an event failure
::
?: ?=(%crud -.task)