Commit 6e46afa8 authored by Bruno Guillaume's avatar Bruno Guillaume
Browse files

adapt to container 3.6

parent 8250f95f
......@@ -25,10 +25,10 @@ exception Error of Yojson.Basic.t
let error_ ?file ?line ?fct ?data msg =
let opt_list = [
Some ("error", `String msg);
(CCOpt.map (fun x -> ("file", `String x)) file);
(CCOpt.map (fun x -> ("line", `Int x)) line);
(CCOpt.map (fun x -> ("function", `String x)) fct);
(CCOpt.map (fun x -> ("data", x)) data);
(CCOption.map (fun x -> ("file", `String x)) file);
(CCOption.map (fun x -> ("line", `Int x)) line);
(CCOption.map (fun x -> ("function", `String x)) fct);
(CCOption.map (fun x -> ("data", x)) data);
] in
let json = `Assoc (CCList.filter_map (fun x->x) opt_list) in
raise (Error json)
......
Supports Markdown
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