mirror of
https://github.com/urbit/shrub.git
synced 2024-11-28 13:54:20 +03:00
vane: prints error notifications where not handled
This commit is contained in:
parent
e59d56aa7a
commit
53d9798cda
@ -954,7 +954,8 @@
|
||||
::
|
||||
++ take
|
||||
|= [=wire =duct dud=(unit goof) type=* =sign]
|
||||
?< ?=(^ dud)
|
||||
?^ dud
|
||||
~|(%ames-larval-take-dud (mean tang.u.dud))
|
||||
:: enqueue event if not a larval drainage timer
|
||||
::
|
||||
:: XX what to do with errors?
|
||||
@ -1103,7 +1104,9 @@
|
||||
++ take
|
||||
|= [=wire =duct dud=(unit goof) type=* =sign]
|
||||
^- [(list move) _ames-gate]
|
||||
?< ?=(^ dud)
|
||||
?^ dud
|
||||
~|(%ames-take-dud (mean tang.u.dud))
|
||||
::
|
||||
::
|
||||
=/ event-core (per-event [our now eny scry-gate] duct ames-state)
|
||||
::
|
||||
|
@ -298,7 +298,9 @@
|
||||
++ take
|
||||
|= [tea=wire hen=duct dud=(unit goof) hin=(hypo sign)]
|
||||
^- [(list move) _behn-gate]
|
||||
?< ?=(^ dud)
|
||||
?^ dud
|
||||
~|(%behn-take-dud (mean tang.u.dud))
|
||||
::
|
||||
?> ?=([%drip @ ~] tea)
|
||||
=/ event-core (per-event [our now hen] state)
|
||||
=^ moves state
|
||||
|
@ -4409,7 +4409,9 @@
|
||||
++ take :: accept response
|
||||
|= [tea=wire hen=duct dud=(unit goof) hin=(hypo sign)]
|
||||
^+ [*(list move) ..^$]
|
||||
?< ?=(^ dud)
|
||||
?^ dud
|
||||
~|(%clay-take-dud (mean tang.u.dud))
|
||||
::
|
||||
?: ?=([%commit @ *] tea)
|
||||
=* syd i.t.tea
|
||||
=^ mos ruf
|
||||
|
@ -632,7 +632,9 @@
|
||||
++ take :: process move
|
||||
|= {tea/wire hen/duct dud/(unit goof) hin/(hypo sign)}
|
||||
^+ [*(list move) ..^$]
|
||||
?< ?=(^ dud)
|
||||
?^ dud
|
||||
~|(%dill-take-dud (mean tang.u.dud))
|
||||
::
|
||||
=/ nus (ax hen)
|
||||
?~ nus
|
||||
:: :hen is an unrecognized duct
|
||||
|
@ -2176,7 +2176,8 @@
|
||||
++ take
|
||||
|= [=wire =duct dud=(unit goof) wrapped-sign=(hypo sign)]
|
||||
^- [(list move) _http-server-gate]
|
||||
?< ?=(^ dud)
|
||||
?^ dud
|
||||
~|(%eyre-take-dud (mean tang.u.dud))
|
||||
:: unwrap :sign, ignoring unneeded +type in :p.wrapped-sign
|
||||
::
|
||||
=/ =sign q.wrapped-sign
|
||||
|
@ -6131,7 +6131,8 @@
|
||||
++ call
|
||||
|= [=duct dud=(unit goof) type=* wrapped-task=(hobo task:able)]
|
||||
^- [(list move) _ford-gate]
|
||||
?< ?=(^ dud)
|
||||
?^ dud
|
||||
~|(%ford-call-dud (mean tang.u.dud))
|
||||
::
|
||||
=/ task=task:able ((harden task:able) wrapped-task)
|
||||
:: we wrap +per-event with a call that binds our event args
|
||||
@ -6245,7 +6246,8 @@
|
||||
++ take
|
||||
|= [=wire =duct dud=(unit goof) wrapped-sign=(hypo sign)]
|
||||
^- [(list move) _ford-gate]
|
||||
?< ?=(^ dud)
|
||||
?^ dud
|
||||
~|(%ford-take-dud (mean tang.u.dud))
|
||||
:: unwrap :sign, ignoring unneeded +type in :p.wrapped-sign
|
||||
::
|
||||
=/ =sign q.wrapped-sign
|
||||
|
@ -1480,7 +1480,8 @@
|
||||
~% %gall-call +> ~
|
||||
|= [=duct dud=(unit goof) hic=(hypo (hobo task:able))]
|
||||
^- [(list move) _gall-payload]
|
||||
?< ?=(^ dud)
|
||||
?^ dud
|
||||
~|(%gall-call-dud (mean tang.u.dud))
|
||||
::
|
||||
~| [%gall-call-failed duct q.hic]
|
||||
=/ =task:able ((harden task:able) q.hic)
|
||||
@ -1988,7 +1989,8 @@
|
||||
~/ %gall-take
|
||||
|= [=wire =duct dud=(unit goof) hin=(hypo sign-arvo)]
|
||||
^- [(list move) _gall-payload]
|
||||
?< ?=(^ dud)
|
||||
?^ dud
|
||||
~|(%gall-take-dud (mean tang.u.dud))
|
||||
::
|
||||
~| [%gall-take-failed wire]
|
||||
::
|
||||
|
@ -969,7 +969,9 @@
|
||||
hic/(hypo (hobo task:able))
|
||||
==
|
||||
^- [(list move) _..^$]
|
||||
?< ?=(^ dud)
|
||||
?^ dud
|
||||
~|(%jael-call-dud (mean tang.u.dud))
|
||||
::
|
||||
=/ =task:able ((harden task:able) q.hic)
|
||||
=^ did lex
|
||||
abet:(~(call of [our now eny] lex) hen task)
|
||||
@ -1200,7 +1202,9 @@
|
||||
hin/(hypo sign)
|
||||
==
|
||||
^- [(list move) _..^$]
|
||||
?< ?=(^ dud)
|
||||
?^ dud
|
||||
~|(%jael-take-dud (mean tang.u.dud))
|
||||
::
|
||||
=^ did lex abet:(~(take of [our now eny] lex) tea hen q.hin)
|
||||
[did ..^$]
|
||||
--
|
||||
|
Loading…
Reference in New Issue
Block a user