hood: start %contact-push/pull-hooks

pkg/arvo/app/contact-store.hoon

@@ -155,7 +155,7 @@
       ^-  (list card)
       =/  paths=(list path)
         ?:  our
-          `(list path)`[/updates /our]~
+          [/updates /our ~]
         ~[/updates]
       [%give %fact paths %contact-update !>(update)]~
     --

pkg/arvo/app/hood.hoon

@@ -2,7 +2,7 @@
 /+  drum=hood-drum, helm=hood-helm, kiln=hood-kiln
 |%
 +$  state
-  $:  %11
+  $:  %12
       drum=state:drum
       helm=state:helm
       kiln=state:kiln
@@ -14,6 +14,7 @@
       [%8 drum=state:drum helm=state:helm kiln=state:kiln]
       [%9 drum=state:drum helm=state:helm kiln=state:kiln]
       [%10 drum=state:drum helm=state:helm kiln=state:kiln]
+      [%11 drum=state:drum helm=state:helm kiln=state:kiln]
   ==
 +$  any-state-tuple
   $:  drum=any-state:drum

pkg/arvo/lib/contact.hoon

@@ -1,4 +1,4 @@
-/-  store=contact-store
+/-  store=contact-store, *resource
 /+  group
 |_  =bowl:gall
 ++  scry-for
@@ -28,7 +28,7 @@
   =/  grp  ~(. group bowl)
   |-
   ?~  allowed-groups  %.n
-  ?:  ~(has in (members:grp i.allowed-groups) ship)
+  ?:  (~(has in (members:grp i.allowed-groups)) ship)
     %.y
   $(allowed-groups t.allowed-groups)
 --

pkg/arvo/lib/hood/drum.hoon

@@ -91,6 +91,8 @@
       %herm
       %contact-store
       %contact-hook
+      %contact-push-hook
+      %contact-pull-hook
       %contact-view
       %metadata-store
       %metadata-hook
@@ -248,6 +250,9 @@
     =>  (se-born | %home %hark-store)
     =>  (se-born | %home %observe-hook)
     (se-born | %home %herm)
+  =?  ..on-load  (lte hood-version %12)
+    =>  (se-born | %home %contact-push-hook)
+    (se-born | %home %contact-pull-hook)
   ..on-load
 ::
 ++  reap-phat                                         ::  ack connect