mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-15 10:02:47 +03:00
vane: downcast all error notifications to %crud
This commit is contained in:
parent
8e6dc992da
commit
4cae84d9ac
@ -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
|
||||
|
@ -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
|
||||
|
@ -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)
|
||||
|
@ -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)
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user