tloncorp/landscape
1
1
Fork 0
mirror of https://github.com/tloncorp/landscape.git synced 2024-12-01 10:55:45 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #210 from tloncorp/m/bark-on-thread

Browse Source 
bark: correctly handle save-summary thread results
This commit is contained in:
Zach Alberico 2023-08-02 13:47:12 -07:00 committed by GitHub
commit ddf7ab9206
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
desk/app/bark.hoon
View File

@ -39,12 +39,20 @@
++ on-arvo ++ on-arvo
|= [=wire sign=sign-arvo] |= [=wire sign=sign-arvo]
^- (quip card _this) ^- (quip card _this)
?> =(/fetch wire) ?+ wire ~|([%strange-wire wire] !!)
[%fetch ~]
?> ?=(%wake +<.sign) ?> ?=(%wake +<.sign)
=^ caz this (on-poke %bark-generate-summaries !>(~)) =^ caz this (on-poke %bark-generate-summaries !>(~))
:_ this :_ this
:_ caz :_ caz
[%pass /fetch %arvo %b %wait (next-timer now.bowl)] [%pass /fetch %arvo %b %wait (next-timer now.bowl)]
::
[%save-summary @ @ ~]
?> ?=(%arow +<.sign)
?: ?=(%& -.p.sign) [~ this]
%- (slog 'bark: failed to save summary' p.p.sign)
[~ this]
==
:: ::
++ on-poke ++ on-poke
|= [=mark =vase] |= [=mark =vase]
@ -113,7 +121,8 @@
++ on-agent on-agent:def ++ on-agent on-agent:def
++ on-fail ++ on-fail
|= [=term =tang] |= [=term =tang]
(mean ':sub +on-fail' term tang) %- (slog 'bark: on-fail' term tang)
[~ this]
++ on-leave ++ on-leave
|= =path |= =path
`this `this

3
desk/ted/save-summary.hoon
View File

@ -35,7 +35,8 @@
:: ::
=/ [%khan %arow %.y %noun vs=vase] mine =/ [%khan %arow %.y %noun vs=vase] mine
=+ !<(mail=(unit cord) vs) =+ !<(mail=(unit cord) vs)
?> ?=(^ mail) ?~ mail
(pure:m !>('no-mail'))
;< ~ bind:m ;< ~ bind:m
%- send-raw-card %- send-raw-card
:* %pass /update-merge-fields/(scot %p ship.args) :* %pass /update-merge-fields/(scot %p ship.args)