hark-store: add %chat types

This commit is contained in:
Liam Fitzgerald 2020-11-05 12:50:56 +10:00
parent a3a8f72672
commit cd11d994a4
No known key found for this signature in database
GPG Key ID: D390E12C61D1CFFB
2 changed files with 7 additions and 1 deletions

View File

@ -236,6 +236,10 @@
|= [existing=notification:store new=notification:store] |= [existing=notification:store new=notification:store]
^- notification:store ^- notification:store
?- -.contents.existing ?- -.contents.existing
::
%chat
?> ?=(%chat -.contents.new)
existing(list.contents (weld list.contents.existing list.contents.new))
:: ::
%graph %graph
?> ?=(%graph -.contents.new) ?> ?=(%graph -.contents.new)

View File

@ -1,10 +1,11 @@
/- *resource, graph-store, post, group-store, metadata-store /- *resource, graph-store, post, group-store, metadata-store, chat-store
^? ^?
|% |%
:: ::
+$ index +$ index
$% [%graph group=resource graph=resource module=@t description=@t] $% [%graph group=resource graph=resource module=@t description=@t]
[%group group=resource description=@t] [%group group=resource description=@t]
[%chat chat=path]
== ==
:: ::
+$ group-contents +$ group-contents
@ -19,6 +20,7 @@
+$ contents +$ contents
$% [%graph =(list post:post)] $% [%graph =(list post:post)]
[%group =(list group-contents)] [%group =(list group-contents)]
[%chat =(list envelope:chat-store)]
== ==
:: ::
+$ timebox +$ timebox