Commit 8a64639b authored by Bruno Guillaume's avatar Bruno Guillaume

dead code

parent 63ff8736
......@@ -118,15 +118,6 @@ module List_ = struct
end (* module List_ *)
(* ================================================================================ *)
module Pdf = struct
let dot_to_file dot output_file =
let temp_file_name,out_ch = Filename.open_temp_file ~mode:[Open_rdonly;Open_wronly;Open_text] "grew_" ".dot" in
fprintf out_ch "%s" dot;
close_out out_ch;
ignore (Sys.command(sprintf "dot -Tpdf -o %s %s " output_file temp_file_name))
end (* module Pdf *)
(* ================================================================================ *)
module Corpus = struct
......
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