From cd11d994a4ed1729336466dc6e346f4d9cf6a8e6 Mon Sep 17 00:00:00 2001
From: Liam Fitzgerald <liam.fitzgerald@tlon.io>
Date: Thu, 5 Nov 2020 12:50:56 +1000
Subject: [PATCH] hark-store: add %chat types

---
 pkg/arvo/app/hark-store.hoon | 4 ++++
 pkg/arvo/sur/hark-store.hoon | 4 +++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/pkg/arvo/app/hark-store.hoon b/pkg/arvo/app/hark-store.hoon
index 70f6d66af9..137b80d507 100644
--- a/pkg/arvo/app/hark-store.hoon
+++ b/pkg/arvo/app/hark-store.hoon
@@ -236,6 +236,10 @@
   |=  [existing=notification:store new=notification:store]
   ^-  notification:store
   ?-    -.contents.existing
+    ::
+      %chat
+    ?>  ?=(%chat -.contents.new)
+    existing(list.contents (weld list.contents.existing list.contents.new))
     ::
       %graph
     ?>  ?=(%graph -.contents.new)
diff --git a/pkg/arvo/sur/hark-store.hoon b/pkg/arvo/sur/hark-store.hoon
index d95ab1f1e5..4649b0e38b 100644
--- a/pkg/arvo/sur/hark-store.hoon
+++ b/pkg/arvo/sur/hark-store.hoon
@@ -1,10 +1,11 @@
-/-  *resource, graph-store, post, group-store, metadata-store
+/-  *resource, graph-store, post, group-store, metadata-store, chat-store
 ^? 
 |%
 ::
 +$  index
   $%  [%graph group=resource graph=resource module=@t description=@t]
       [%group group=resource description=@t]
+      [%chat chat=path]
   ==
 ::
 +$  group-contents
@@ -19,6 +20,7 @@
 +$  contents
   $%  [%graph =(list post:post)]
       [%group =(list group-contents)]
+      [%chat =(list envelope:chat-store)]
   ==
 ::
 +$  timebox