refactor, hunt

lib/json.ml

@@ -0,0 +1,8 @@
+let parse_json src = Yojson.Basic.from_string src
+
+let jfield key = function
+  | `Assoc pairs -> List.assoc_opt key pairs
+  | _ -> None
+
+let jstring = function `String s -> Some s | _ -> None
+let jassoc = function `Assoc pairs -> Some pairs | _ -> None