Commit 5806e298 authored by Bruno Guillaume's avatar Bruno Guillaume

json type

parent 77df8c9e
......@@ -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 = [
......
......@@ -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
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment