graph-store: added jet hints and a json conversion path
/+ store=graph-store, sigs=signatures, default-agent, dbug
+~% %graph-store-top ..is ~
|%
+$ card card:agent:gall
+$ versioned-state
::
%- agent:dbug
^- agent:gall
+~% %graph-store-agent ..card ~
|_ =bowl:gall
+* this .
def ~(. (default-agent this %|) bowl)
[~ this(state !<(state-0 old))]
::
++ on-poke
+ ~/ %graph-store-poke
|= [=mark =vase]
^- (quip card _this)
|^
=^ cards state
?+ mark (on-poke:def mark vase)
%graph-action (graph-action !<(action:store vase))
+ %json (graph-action (action:dejs:store !<(json vase)))
==
[cards this]
::
--
::
++ on-watch
+ ~/ %graph-store-watch
|= =path
^- (quip card _this)
|^
--
::
++ on-peek
+ ~/ %graph-store-peek
|= =path
^- (unit (unit cage))
?+ path (on-peek:def path)
