diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2013-04-21 19:20:08 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2013-04-21 19:20:08 +0000 |
| commit | b1b68bf6b427bbe33772f90beaf6580fadd62a76 (patch) | |
| tree | 093de79be939a27c9e382407d7afc3f949892342 /src/runtime/haskell/PGF/VisualizeTree.hs | |
| parent | 3e453b44be7b13e3f877c070663fd03a256aeec3 (diff) | |
reverse the direction of the arcs in the dependency trees
Diffstat (limited to 'src/runtime/haskell/PGF/VisualizeTree.hs')
| -rw-r--r-- | src/runtime/haskell/PGF/VisualizeTree.hs | 4 |
1 files 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 |