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