urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-28 22:33:06 +03:00
Code Issues Packages Projects Releases Wiki Activity

vane: prints error notifications where not handled

Browse Source
This commit is contained in:
Joe Bryan 2020-02-24 14:10:59 -08:00
parent e59d56aa7a
commit 53d9798cda
8 changed files with 30 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkg/arvo/sys/vane/ames.hoon
View File

@ -954,7 +954,8 @@
:: ::
++ take ++ take
|= [=wire =duct dud=(unit goof) type=* =sign] |= [=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 :: enqueue event if not a larval drainage timer
:: ::
:: XX what to do with errors? :: XX what to do with errors?
@ -1103,7 +1104,9 @@
++ take ++ take
|= [=wire =duct dud=(unit goof) type=* =sign] |= [=wire =duct dud=(unit goof) type=* =sign]
^- [(list move) _ames-gate] ^- [(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) =/ event-core (per-event [our now eny scry-gate] duct ames-state)
:: ::

4
pkg/arvo/sys/vane/behn.hoon
View File

@ -298,7 +298,9 @@
++ take ++ take
|= [tea=wire hen=duct dud=(unit goof) hin=(hypo sign)] |= [tea=wire hen=duct dud=(unit goof) hin=(hypo sign)]
^- [(list move) _behn-gate] ^- [(list move) _behn-gate]
?< ?=(^ dud) ?^ dud
~|(%behn-take-dud (mean tang.u.dud))
::
?> ?=([%drip @ ~] tea) ?> ?=([%drip @ ~] tea)
=/ event-core (per-event [our now hen] state) =/ event-core (per-event [our now hen] state)
=^ moves state =^ moves state

4
pkg/arvo/sys/vane/clay.hoon
View File

@ -4409,7 +4409,9 @@
++ take :: accept response ++ take :: accept response
|= [tea=wire hen=duct dud=(unit goof) hin=(hypo sign)] |= [tea=wire hen=duct dud=(unit goof) hin=(hypo sign)]
^+ [*(list move) ..^$] ^+ [*(list move) ..^$]
?< ?=(^ dud) ?^ dud
~|(%clay-take-dud (mean tang.u.dud))
::
?: ?=([%commit @ *] tea) ?: ?=([%commit @ *] tea)
=* syd i.t.tea =* syd i.t.tea
=^ mos ruf =^ mos ruf

4
pkg/arvo/sys/vane/dill.hoon
View File

@ -632,7 +632,9 @@
++ take :: process move ++ take :: process move
|= {tea/wire hen/duct dud/(unit goof) hin/(hypo sign)} |= {tea/wire hen/duct dud/(unit goof) hin/(hypo sign)}
^+ [*(list move) ..^$] ^+ [*(list move) ..^$]
?< ?=(^ dud) ?^ dud
~|(%dill-take-dud (mean tang.u.dud))
::
=/ nus (ax hen) =/ nus (ax hen)
?~ nus ?~ nus
:: :hen is an unrecognized duct :: :hen is an unrecognized duct

3
pkg/arvo/sys/vane/eyre.hoon
View File

@ -2176,7 +2176,8 @@
++ take ++ take
|= [=wire =duct dud=(unit goof) wrapped-sign=(hypo sign)] |= [=wire =duct dud=(unit goof) wrapped-sign=(hypo sign)]
^- [(list move) _http-server-gate] ^- [(list move) _http-server-gate]
?< ?=(^ dud) ?^ dud
~|(%eyre-take-dud (mean tang.u.dud))
:: unwrap :sign, ignoring unneeded +type in :p.wrapped-sign :: unwrap :sign, ignoring unneeded +type in :p.wrapped-sign
:: ::
=/ =sign q.wrapped-sign =/ =sign q.wrapped-sign

6
pkg/arvo/sys/vane/ford.hoon
View File

@ -6131,7 +6131,8 @@
++ call ++ call
|= [=duct dud=(unit goof) type=* wrapped-task=(hobo task:able)] |= [=duct dud=(unit goof) type=* wrapped-task=(hobo task:able)]
^- [(list move) _ford-gate] ^- [(list move) _ford-gate]
?< ?=(^ dud) ?^ dud
~|(%ford-call-dud (mean tang.u.dud))
:: ::
=/ task=task:able ((harden task:able) wrapped-task) =/ task=task:able ((harden task:able) wrapped-task)
:: we wrap +per-event with a call that binds our event args :: we wrap +per-event with a call that binds our event args
@ -6245,7 +6246,8 @@
++ take ++ take
|= [=wire =duct dud=(unit goof) wrapped-sign=(hypo sign)] |= [=wire =duct dud=(unit goof) wrapped-sign=(hypo sign)]
^- [(list move) _ford-gate] ^- [(list move) _ford-gate]
?< ?=(^ dud) ?^ dud
~|(%ford-take-dud (mean tang.u.dud))
:: unwrap :sign, ignoring unneeded +type in :p.wrapped-sign :: unwrap :sign, ignoring unneeded +type in :p.wrapped-sign
:: ::
=/ =sign q.wrapped-sign =/ =sign q.wrapped-sign

6
pkg/arvo/sys/vane/gall.hoon
View File

@ -1480,7 +1480,8 @@
~% %gall-call +> ~ ~% %gall-call +> ~
|= [=duct dud=(unit goof) hic=(hypo (hobo task:able))] |= [=duct dud=(unit goof) hic=(hypo (hobo task:able))]
^- [(list move) _gall-payload] ^- [(list move) _gall-payload]
?< ?=(^ dud) ?^ dud
~|(%gall-call-dud (mean tang.u.dud))
:: ::
~| [%gall-call-failed duct q.hic] ~| [%gall-call-failed duct q.hic]
=/ =task:able ((harden task:able) q.hic) =/ =task:able ((harden task:able) q.hic)
@ -1988,7 +1989,8 @@
~/ %gall-take ~/ %gall-take
|= [=wire =duct dud=(unit goof) hin=(hypo sign-arvo)] |= [=wire =duct dud=(unit goof) hin=(hypo sign-arvo)]
^- [(list move) _gall-payload] ^- [(list move) _gall-payload]
?< ?=(^ dud) ?^ dud
~|(%gall-take-dud (mean tang.u.dud))
:: ::
~| [%gall-take-failed wire] ~| [%gall-take-failed wire]
:: ::

8
pkg/arvo/sys/vane/jael.hoon
View File

@ -969,7 +969,9 @@
hic/(hypo (hobo task:able)) hic/(hypo (hobo task:able))
== ==
^- [(list move) _..^$] ^- [(list move) _..^$]
?< ?=(^ dud) ?^ dud
~|(%jael-call-dud (mean tang.u.dud))
::
=/ =task:able ((harden task:able) q.hic) =/ =task:able ((harden task:able) q.hic)
=^ did lex =^ did lex
abet:(~(call of [our now eny] lex) hen task) abet:(~(call of [our now eny] lex) hen task)
@ -1200,7 +1202,9 @@
hin/(hypo sign) hin/(hypo sign)
== ==
^- [(list move) _..^$] ^- [(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 lex abet:(~(take of [our now eny] lex) tea hen q.hin)
[did ..^$] [did ..^$]
-- --