diff options
author | Daniel Burrows <dburrows@debian.org> | 2009-04-05 09:50:23 -0700 |
---|---|---|
committer | Daniel Burrows <dburrows@debian.org> | 2009-04-05 09:50:23 -0700 |
commit | f4268a9da7a25614986b6b4d502b57f7cb9814c3 (patch) | |
tree | b9abd2979b7382002b99d31331e9aff947a71fd1 /tools | |
parent | 708a77f60039204b98899562f0c22653ff269dd0 (diff) | |
download | aptitude-f4268a9da7a25614986b6b4d502b57f7cb9814c3.tar.gz |
Tweak how tiers are written, to be a bit more readable.
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 |