diff options
| author | Daniel Burrows <dburrows@debian.org> | 2009-04-12 15:57:29 -0700 |
|---|---|---|
| committer | Daniel Burrows <dburrows@debian.org> | 2009-04-12 15:57:29 -0700 |
| commit | 198eb45793f360b8972696c53ea934dd7c4da683 (patch) | |
| tree | ab5e904fa0b326d6f4f520cb5fea2225f03adba0 | |
| parent | 31a57528ed2ab5593d1f9342cbf5a50e5a782779 (diff) | |
| download | aptitude-198eb45793f360b8972696c53ea934dd7c4da683.tar.gz | |
Another improvement to the label that gets shown for large promotions.
| -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 57eba7b4..bcc56322 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 "(%s\n%d choices...)" + else printf "%s\n%d choices..." (show $ promotionTier p) (Set.size $ promotionChoices p) |