Json.json -> Json.t to accomodate recent yojson

2 files changed, 6 insertions, 6 deletions

diff --git a/lib/inner_db.ml b/lib/inner_db.ml
index 989c2bf..816fc09 100644
--- a/lib/inner_db.ml
+++ b/lib/inner_db.ml
@@ -77,7 +77,7 @@ module Json = Yojson.Basic
 
 (* Converting [t] -> [Json.json] *)
 
-let json_of_document (doc: document): Json.json =
+let json_of_document (doc: document): Json.t =
   let strlst2json = List.map (fun s -> `String s) in
   let srclst2json = List.map (fun s ->
     `String (Source.to_string s)
@@ -91,15 +91,15 @@ let json_of_document (doc: document): Json.json =
     "lang", `String doc.content.lang;
   ]
 
-let json_of_t (db: t): Json.json =
+let json_of_t (db: t): Json.t =
   `List (
     fold (fun doc docs -> (json_of_document doc)::docs)
       db []
   )
 
-(* Converting [Json.json] -> [t] *)
+(* Converting [Json.t] -> [t] *)
 
-let document_of_json (json: Json.json): document =
+let document_of_json (json: Json.t): document =
   let open Json.Util in
   let to_list_option = to_option to_list in
 
@@ -123,7 +123,7 @@ let document_of_json (json: Json.json): document =
 
   { id; content = { name; authors; source; tags; lang } }
 
-let t_of_json (json: Json.json): t =
+let t_of_json (json: Json.t): t =
   let open Json.Util in
   let table =
     json |> to_list
diff --git a/src/config.ml b/src/config.ml
index 86ff189..0fea098 100644
--- a/src/config.ml
+++ b/src/config.ml
@@ -11,7 +11,7 @@ type userconfig = {
   external_reader : string list;
 }
 
-let userconfig_of_json (json: Json.json): userconfig option =
+let userconfig_of_json (json: Json.t): userconfig option =
   let open Json.Util in
   let external_reader =
     json |> member "external_reader"