diff options
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) |