contact-pull-hook: give nacks on subscription

pkg/arvo/app/contact-pull-hook.hoon

@@ -31,13 +31,20 @@
 ++  on-arvo   on-arvo:def
 ++  on-fail   on-fail:def
 ++  on-agent  on-agent:def
-++  on-watch  on-watch:def
+++  on-watch  
+  |=  =path
+  ?.  ?=([%nacks ~] path)
+    (on-watch:def path)
+  ?>  (team:title [src our]:bowl)
+  `this
+::
 ++  on-leave  on-leave:def
 ++  resource-for-update  resource-for-update:con
 ++  on-pull-nack
   |=  [=resource =tang]
   ^-  (quip card _this)
-  [~ this]
+  :_  this
+  [%give %fact ~[/nacks] resource+!>(resource)]~
 ::
 ++  on-pull-kick  |=(=resource `/)
 --

pkg/arvo/lib/pull-hook.hoon

@@ -20,6 +20,22 @@
 ::
 /-  *pull-hook
 /+  default-agent, resource
+|%
+::  JSON conversions
+++  dejs
+  =,  dejs:format
+  |%
+  ++  action
+    %-  of
+    :~  add+add
+    ==
+  ++  add
+    %-  ot
+    :~  ship+(su ;~(pfix sig fed:ag))
+        resource+dejs:resource
+    ==
+  --
+--
 ::
 ::
 |%

pkg/arvo/mar/pull-hook/action.hoon

@@ -1,12 +1,13 @@
-/-  *pull-hook
-|_  act=action
+/+  pull-hook
+|_  =action:pull-hook
 ++  grab
   |%
-  ++  noun  action
+  ++  noun  action:pull-hook
+  ++  json  action:dejs:pull-hook
   --
 ++  grow
   |%
-  ++  noun  act
+  ++  noun  action
   --
 ++  grad  %noun
 --

pkg/arvo/mar/resource.hoon

@@ -4,7 +4,9 @@
 ++  grow
   |%
   ++  noun  rid
-  ++  json  (enjs:resource rid)
+  ++  json  
+    %+  frond:enjs:format  %resource
+    (enjs:resource rid)
   --
 ++  grab
   |%