From ffd64cc02adab43425676a276d2ed184678e7426 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Sun, 21 Apr 2013 19:20:08 +0000 Subject: [PATCH] reverse the direction of the arcs in the dependency trees --- src/runtime/haskell/PGF/VisualizeTree.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/runtime/haskell/PGF/VisualizeTree.hs b/src/runtime/haskell/PGF/VisualizeTree.hs index 6bfee1f39..d3a6ad927 100644 --- a/src/runtime/haskell/PGF/VisualizeTree.hs +++ b/src/runtime/haskell/PGF/VisualizeTree.hs @@ -117,7 +117,7 @@ graphvizDependencyTree format debug mlab ms pgf lang t = render $ "malt_input" -> vcat (map (hcat . intersperse (char '\t') . take 6) wnodes) _ -> text "digraph {" $$ space $$ - nest 2 (text "rankdir=RL ;" $$ + nest 2 (text "rankdir=LR ;" $$ text "node [shape = plaintext] ;" $$ vcat nodes $$ vcat links) $$ @@ -162,7 +162,7 @@ graphvizDependencyTree format debug mlab ms pgf lang t = render $ mkNode ((_,p,_),i,w) = tag p <+> brackets (text "label = " <> doubleQuotes (int i <> char '.' <+> text w)) <+> semi - mkLink (x,(lbl,y)) = tag x <+> text "->" <+> tag y <+> text "[label = " <> doubleQuotes (text lbl) <> text "] ;" + mkLink (x,(lbl,y)) = tag y <+> text "->" <+> tag x <+> text "[label = " <> doubleQuotes (text lbl) <> text "] ;" labels = maybe Map.empty id mlab