diff options
author | Lluís Batlle i Rossell <viric@vicerveza.homeunix.net> | 2010-08-07 20:14:04 +0000 |
---|---|---|
committer | Lluís Batlle i Rossell <viric@vicerveza.homeunix.net> | 2010-08-07 20:14:04 +0000 |
commit | 46082f25f9a79e9224a34126cf38e2d3967e2649 (patch) | |
tree | 173a0f0b2c9973f3a1430b2d7476f31fbffe12e5 /pkgs/applications/version-management/monotone-viz/graphviz.patch | |
parent | a70b44b3cbf7babd8613b005a619422969c750ff (diff) | |
parent | 4ed96dfbc27186ba5cced3a99e25b6867cac5fd0 (diff) | |
download | nixpkgs-46082f25f9a79e9224a34126cf38e2d3967e2649.tar nixpkgs-46082f25f9a79e9224a34126cf38e2d3967e2649.tar.gz nixpkgs-46082f25f9a79e9224a34126cf38e2d3967e2649.tar.bz2 nixpkgs-46082f25f9a79e9224a34126cf38e2d3967e2649.tar.lz nixpkgs-46082f25f9a79e9224a34126cf38e2d3967e2649.tar.xz nixpkgs-46082f25f9a79e9224a34126cf38e2d3967e2649.tar.zst nixpkgs-46082f25f9a79e9224a34126cf38e2d3967e2649.zip |
Updating from trunk
svn path=/nixpkgs/branches/stdenv-updates/; revision=23027
Diffstat (limited to 'pkgs/applications/version-management/monotone-viz/graphviz.patch')
-rw-r--r-- | pkgs/applications/version-management/monotone-viz/graphviz.patch | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/pkgs/applications/version-management/monotone-viz/graphviz.patch b/pkgs/applications/version-management/monotone-viz/graphviz.patch new file mode 100644 index 00000000000..e1f9bfc5f7f --- /dev/null +++ b/pkgs/applications/version-management/monotone-viz/graphviz.patch @@ -0,0 +1,34 @@ +# patch "agraph.ml" +# from [8ae6c9bb70bbf9fd80e4e62d9f162ac581619b9e] +# to [05aa88921481ac9bfe238daeb4374fbc9993caaa] +# +============================================================ +--- a/agraph.ml 8ae6c9bb70bbf9fd80e4e62d9f162ac581619b9e ++++ b/agraph.ml 05aa88921481ac9bfe238daeb4374fbc9993caaa +@@ -50,8 +50,9 @@ let dot_format params agraph = + agraph.nodes in + + !+ "digraph \"monotone-viz\"\n{\n" ; +- if params.lr_layout then +- !+ " graph [rankdir=LR] ;\n" ; ++ if params.lr_layout ++ then !+ " graph [rankdir=LR] ;\n" ++ else !+ " graph [rankdir=BT] ;\n" ; + !+ " graph [ranksep=\"0.25\"] ;\n" ; + !+ " node [label=\"\"] ;\n" ; + +@@ -222,11 +223,11 @@ let spawn_dot graph status done_cb = + let dot_prg = graph.layout_params.dot_program in + let cmd = + if Viz_misc.debug "dot" +- then [ "/bin/sh" ; "-c" ; ++ then [ "/bin/sh" ; "-c" ; + Printf.sprintf + "set -o pipefail ; \ +- tee agraph.in.dot | %s -q -y -s%.0f | tee agraph.out.dot" dot_prg ppi ] +- else [ dot_prg ; "-q" ; "-y" ; Printf.sprintf "-s%.0f" ppi ] in ++ tee agraph.in.dot | %s -q -s%.0f | tee agraph.out.dot" dot_prg ppi ] ++ else [ dot_prg ; "-q" ; Printf.sprintf "-s%.0f" ppi ] in + let error fmt = + Printf.kprintf (fun s -> done_cb (`LAYOUT_ERROR s)) fmt in + try |