graph-store: first validator mark builds

This commit is contained in:
Logan Allen 2020-07-27 12:56:30 -07:00
parent 325667f9ec
commit a35749e2be
2 changed files with 10 additions and 4 deletions

View File

@ -3,7 +3,7 @@
/+ *graph-store
:- %say
|= $: [now=@da eny=@uvJ =beak]
[[=resource =graph mark=(unit mark) ~] ~]
[[=resource mark=(unit mark) ~] ~]
==
:- %graph-update
^- update

View File

@ -1,11 +1,17 @@
/- graph=graph-store
/- store=graph-store
|_ [=atom =post:store]
++ grow
|%
++ noun [atom post]
--
++ grab
|%
++ noun
|= [=atom =post:store]
^- [atom post:store]
|= [=^atom =post:store]
^- [^^atom post:store]
?> ?=([@ ~] index.post)
[atom post]
--
::
++ grad %noun
--