shrub/pkg/arvo/gen/graph-store/add-post.hoon

::  graph-store|add-post: add post to a graph
::
/-  *graph-store
:-  %say
|=  $:  [now=@da eny=@uvJ =beak]
        [[[our=ship name=term] contents=(list content) ~] ~]
    ==
=/  =post  *post
=:  author.post     our
    index.post      [now]~
    time-sent.post  now
    contents.post   contents
==
::
:-  %graph-update-1
^-  update
:-  now
:+  %add-nodes  [our name]
%-  ~(gas by *(map index node))
~[[[now]~ [post [%empty ~]]]]
graph-store: fully tested mark validation system 2020-07-28 22:03:09 +03:00			`:: graph-store\|add-post: add post to a graph`
			`::`
			`/- *graph-store`
			`:- %say`
			`\|= $: [now=@da eny=@uvJ =beak]`
			`[[[our=ship name=term] contents=(list content) ~] ~]`
			`==`
			`=/ =post *post`
			`=: author.post our`
			`index.post [now]~`
			`time-sent.post now`
			`contents.post contents`
			`==`
			`::`
graph-store: upgrade reference content This commit changes the type of update:graph-store and as such, a new mark has been created. graph-store now consumes and produces %graph-update-1. This new mark type is backwards incompatible with the previous mark. 2021-03-18 04:50:14 +03:00			`:- %graph-update-1`
graph-store: fully tested mark validation system 2020-07-28 22:03:09 +03:00			`^- update`
graph-store: upgrade reference content This commit changes the type of update:graph-store and as such, a new mark has been created. graph-store now consumes and produces %graph-update-1. This new mark type is backwards incompatible with the previous mark. 2021-03-18 04:50:14 +03:00			`:- now`
graph-store: fully tested mark validation system 2020-07-28 22:03:09 +03:00			`:+ %add-nodes [our name]`
			`%- ~(gas by *(map index node))`
			`~[[[now]~ [post [%empty ~]]]]`