json type

src/global.ml

@@ -29,7 +29,7 @@ let write file string =
 end (* module File *)
 
 
-exception Error of Yojson.Basic.json
+exception Error of Yojson.Basic.t
 
 let error ?file ?line ?fct ?data msg =
   let opt_list = [

src/main.ml

@@ -81,7 +81,7 @@ let rec parse_arg = function
 let json_apply json_in json_out =
   match json_in with
   | `List l ->
-    let (new_json : Yojson.Basic.json) = `List (List.map (
+    let (new_json : Yojson.Basic.t) = `List (List.map (
       function
       | `Assoc item ->
       begin