graph-view: working json parsing for fetches

pkg/arvo/app/graph-view.hoon

@@ -86,7 +86,7 @@
   ?>  (team:title our.bowl src.bowl)
   ?+  path  (on-watch:def path)
       [%updates @ ~]
-    :-  ~
+    :-  [%give %fact ~ %json !>([(frond:enjs:format %graph-view s+'bound')])]~
     this(connections (~(put by connections) i.t.path now.bowl))
   ==
 ::

pkg/arvo/lib/graph-view.hoon

@@ -3,4 +3,30 @@
 =<  [sur .]
 =,  sur
 |%
+++  dejs
+  =,  dejs:format
+  |%
+  ++  action
+    |=  jon=json
+    ^-  ^action
+    =<  (parse-json jon)
+    |%
+    ++  parse-json
+      %-  of
+      :~  [%fetch fetch]
+      ==
+    ::
+    ++  fetch
+      %-  ot
+      :~  [%connection ni]
+          [%type fetch-type]
+      ==
+    ::
+    ++  fetch-type
+      %-  of
+      :~  [%all ul]
+      ==
+    --
+  --
+
 --