diff options
| author | Daniel Burrows <dburrows@debian.org> | 2009-04-12 11:52:54 -0700 |
|---|---|---|
| committer | Daniel Burrows <dburrows@debian.org> | 2009-04-12 11:52:54 -0700 |
| commit | 31a57528ed2ab5593d1f9342cbf5a50e5a782779 (patch) | |
| tree | f3d09a756b9c6b59cbcaa2a9ed8a1f9b78b62c7a /tools/resolver-visualize/DotRender.hs | |
| parent | 3f3d4ec4ad5fc921dcee840d6b1e11297a84b044 (diff) | |
| download | aptitude-31a57528ed2ab5593d1f9342cbf5a50e5a782779.tar.gz | |
Better rendering of large promotions.
Diffstat (limited to 'tools/resolver-visualize/DotRender.hs')
| -rw-r--r-- | tools/resolver-visualize/DotRender.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/resolver-visualize/DotRender.hs b/tools/resolver-visualize/DotRender.hs index 448c1a5a..57eba7b4 100644 --- a/tools/resolver-visualize/DotRender.hs +++ b/tools/resolver-visualize/DotRender.hs @@ -119,7 +119,7 @@ dotPromotions params step = (show $ promotionTier p) (concat $ intersperse "\n" [pp c | c <- Set.toList $ promotionChoices p]) - else printf "(T%s: %d choices)" + else printf "(%s\n%d choices...)" (show $ promotionTier p) (Set.size $ promotionChoices p) |