Commit af422f76 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov Committed by GitHub
Browse files

Merge pull request #3967 from kosmikus/debug-tracetree-fix

Adapt to changes in Distribution.Version.
parents e30ffcb2 9bf8210a
......@@ -14,6 +14,7 @@ import Data.Set as S
import Distribution.Version
import Distribution.Compiler (CompilerInfo)
import Distribution.Text (display)
import Distribution.Solver.Types.PackagePath
import Distribution.Solver.Types.PackagePreferences
......@@ -201,7 +202,7 @@ instance GSimpleTree (Tree d QGoalReason) where
-- Show package choice
goP :: QPN -> POption -> Tree d QGoalReason -> (String, SimpleTree)
goP _ (POption (I ver _loc) Nothing) subtree = (showVersion ver, go subtree)
goP _ (POption (I ver _loc) Nothing) subtree = (display ver, go subtree)
goP (Q _ pn) (POption _ (Just pp)) subtree = (showQPN (Q pp pn), go subtree)
-- Show flag or stanza choice
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment