Commit 12b918bb authored by Bruno Guillaume's avatar Bruno Guillaume

Adapt to libcaml_dep2pict 2.30

parent 313d679b
......@@ -80,17 +80,17 @@ module Grew_rew_display = struct
let to_pngfile_graph ?domain ?deco ?main_feat graph_id output_file =
let dep = to_depstring_graph ?domain ?deco ?main_feat graph_id in
let d2p = Dep2pict.Dep2pict.from_dep ~dep in
let d2p = Dep2pict.Dep2pict.from_dep dep in
Dep2pict.Dep2pict.save_png ~filename:output_file d2p
let to_pdf_depfile_graph ?domain ?deco ?main_feat graph_id output_file =
let dep = to_depstring_graph ?domain ?deco ?main_feat graph_id in
let d2p = Dep2pict.Dep2pict.from_dep ~dep in
let d2p = Dep2pict.Dep2pict.from_dep dep in
Dep2pict.Dep2pict.save_pdf ~filename:output_file d2p
let to_svg_depfile_graph ?domain ?deco ?main_feat graph_id output_file =
let dep = to_depstring_graph ?domain ?deco ?main_feat graph_id in
let d2p = Dep2pict.Dep2pict.from_dep ~dep in
let d2p = Dep2pict.Dep2pict.from_dep dep in
Dep2pict.Dep2pict.save_svg ~filename:output_file d2p
let to_svg_dotfile_graph ?domain ?deco ?main_feat graph_id output_file =
......
......@@ -136,7 +136,7 @@ module Svg = struct
let dep_to_tmp dep =
let temp_file_name = Filename.temp_file "grew_" ".svg" in
let d2p = Dep2pict.from_dep ~dep in
let d2p = Dep2pict.from_dep dep in
let () = Dep2pict.save_svg ~filename:temp_file_name d2p in
temp_file_name
end (* module Svg *)
......
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