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

bark: correctly handle save-summary thread results

desk/app/bark.hoon

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

desk/ted/save-summary.hoon

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