ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-12 15:01:38 +03:00
Code Issues Packages Projects Releases Wiki Activity

pull-hook: fix handle-kick printouts

Browse Source
This commit is contained in:
Logan Allen 2020-12-04 13:24:42 -06:00
parent 44e0f409bb
commit c5a46bc605
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkg/arvo/lib/pull-hook.hoon
View File

@ -339,6 +339,7 @@
== ==
~ ~
``.^(* u.pax) ``.^(* u.pax)
::
++ handle-kick ++ handle-kick
|= [rid=resource =ship] |= [rid=resource =ship]
^- (quip card _state) ^- (quip card _state)
@ -349,13 +350,16 @@
:- -:!>(*(unit path)) :- -:!>(*(unit path))
?:(?=(%0 -.res) p.res ~) ?:(?=(%0 -.res) p.res ~)
=? failed-kicks !?=(%0 -.res) =? failed-kicks !?=(%0 -.res)
=/ tang =/ =tang
:+ leaf+"failed kick handler, please report" :+ leaf+"failed kick handler, please report"
leaf+"{<rid>} in {(trip dap.bowl)}" leaf+"{<rid>} in {(trip dap.bowl)}"
?: ?=(%2 -.res) ?: ?=(%2 -.res)
p.res p.res
?> ?=(%1 -.res) ?> ?=(%1 -.res)
(turn `(list *)`p.res (cork path smyt)) =/ paths=(unit (list path)) ((soft (list path)) p.res)
?~ paths ~
%+ turn u.paths
(cork path smyt)
%- (slog tang) %- (slog tang)
(~(put by failed-kicks) rid ship) (~(put by failed-kicks) rid ship)
?^ pax ?^ pax