diff options
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/resolver-visualize/Resolver/Types.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tools/resolver-visualize/Resolver/Types.hs b/tools/resolver-visualize/Resolver/Types.hs index 80a77413..1191205e 100644 --- a/tools/resolver-visualize/Resolver/Types.hs +++ b/tools/resolver-visualize/Resolver/Types.hs @@ -160,7 +160,10 @@ minimumTier = Tier [minimumTierNum] -- The Show instance mainly special-cases the special tiers so they -- get pretty-printed. instance Show Tier where - showsPrec _ (Tier [num]) = ('T':) . showsTierComponent num + showsPrec _ (Tier (first:_)) + | first == maximumTierNum = ("T(conflict)"++) + | first == deferTierNum = ("T(defer)"++) + | first == alreadyGeneratedTierNum = ("T(redundant)"++) showsPrec _ (Tier nums) = ("T("++) . foldr (.) id (intersperse (", "++) (map showsTierComponent nums)) . (')':) @@ -168,8 +171,6 @@ instance Show Tier where -- | Display a user-friendly description of a tier number. showsTierComponent tierNum | tierNum == maximumTierNum = ("maximum"++) - | tierNum == deferTierNum = ("defer"++) - | tierNum == alreadyGeneratedTierNum = ("redundant"++) | tierNum == minimumTierNum = ("minimum"++) | otherwise = shows tierNum |