Commit e8c7bfa3 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski Committed by Alexandre Delanoë

[phylo] remove debug file write

parent afcac0ef
......@@ -76,16 +76,12 @@ phylo2dot2json phylo = do
dotToFile fileFrom (toPhyloExport phylo)
-- parsing a file can be done with:
-- runParser' (Data.GraphViz.Parsing.parse :: Parse (Data.GraphViz.DotGraph Text)) $ TL.fromStrict f
Shell.callProcess "dot" ["-Tdot", "-o", fileDot, fileFrom]
Shell.callProcess "dot" ["-Txdot_json", "-o", fileToJson, fileDot]
ffrom <- readFile fileFrom
writeFile "/tmp/fileFrom.json" ffrom
fdot <- readFile fileDot
writeFile "/tmp/file.dot" fdot
fto <- readFile fileToJson
writeFile "/tmp/fileTo.json" fto
maybeValue <- decodeFileStrict fileToJson
print maybeValue
......
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