ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-04 13:19:48 +03:00
Code Issues Packages Projects Releases Wiki Activity

landscape: crash the event if migration fails

Browse Source
This commit is contained in:
Liam Fitzgerald 2022-11-29 13:12:10 +10:00
parent 8f6366d1c9
commit 06a2fe5b69
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
pkg/landscape/app/group-store.hoon
View File

@ -91,8 +91,8 @@
cards
%- welp
:_ cards
:~ [%pass / %agent [our dap]:bowl %poke noun+!>(%export)]
[%pass / %agent [our dap]:bowl %poke noun+!>(%migrate)]
:~ [%pass /pyre/export %agent [our dap]:bowl %poke noun+!>(%export)]
[%pass /pyre/migrate %agent [our dap]:bowl %poke noun+!>(%migrate)]
[%pass / %agent [our %hood]:bowl %poke %kiln-install !>([%groups ~zod %groups])]
==
==
@ -186,6 +186,10 @@
++ on-agent
|= [=wire =sign:agent:gall]
^- (quip card _this)
?: ?=([%pyre *] wire)
=^ cards state
(take-pyre:gc t.wire sign)
[cards this]
?: ?=([%gladio ~] wire)
(on-agent:def wire sign)
?: ?=([%gladio @ ~] wire)
@ -244,6 +248,15 @@
=/ cards (welp cards-1 cards-2)
[cards state(wait wait)]
::
++ take-pyre
|= [=wire =sign:agent:gall]
^- (quip card _state)
:_ state
?> ?=(%poke-ack -.sign)
?~ p.sign
~
[%pass / %pyre leaf/"{<wire>} failed" u.p.sign]~
::
++ take-migrate
|= =sign:agent:gall
^- (quip card _state)