From 198eb45793f360b8972696c53ea934dd7c4da683 Mon Sep 17 00:00:00 2001 From: Daniel Burrows Date: Sun, 12 Apr 2009 15:57:29 -0700 Subject: Another improvement to the label that gets shown for large promotions. --- tools/resolver-visualize/DotRender.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tools') 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) -- cgit v1.2.3