ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-10 18:21:34 +03:00
Code Issues Packages Projects Releases Wiki Activity

push-hook: cache transform and fail if transform fails

Browse Source
This commit is contained in:
Logan Allen 2021-03-15 11:59:57 -05:00
parent 2c1ae5646b
commit 3600866a5d
1 changed files with 29 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
pkg/arvo/lib/push-hook.hoon
View File

@ -396,20 +396,38 @@
++ forward-update
|= vas=vase
^- (list card:agent:gall)
%+ murn (resource-for-update vas)
|= rid=resource
^- (unit card:agent:gall)
=/ =path resource+(en-path:resource rid)
=- lis
%+ roll (resource-for-update vas)
|= [rid=resource [lis=(list card:agent:gall) tf-vas=(unit vase)]]
^- [(list card:agent:gall) (unit vase)]
=/ =path
resource+(en-path:resource rid)
=/ =wire (make-wire path)
=* ship entity.rid
=/ [=dock vax=(unit vase)]
?. =(our.bowl entity.rid)
:_ `vas
[ship dap.bowl]
:- [ship store-name.config]
=. tf-vas
?. =(our.bowl ship)
:: do not transform before forwarding
::
`vas
:: use cached transform
::
?^ tf-vas tf-vas
:: transform before poking store
::
(transform-proxy-update:og vas)
?~ vax ~
`[%pass wire %agent dock %poke update-mark.config u.vax]
~| "forwarding failed during transform. mark: {<p.vas>} resource: {<rid>}"
?> ?=(^ tf-vas)
=/ =dock
:- ship
?. =(our.bowl ship)
:: forward to host
::
dap.bowl
:: poke our store
::
store-name.config
:_ tf-vas
[[%pass wire %agent dock %poke update-mark.config u.tf-vas] lis]
::
++ resource-for-update
|= =vase