Slightly nicer check plan output

This commit is contained in:
Michael Snoyman 2014-12-15 07:52:33 +02:00
parent a30d6f0908
commit 096b547164

View File

@ -79,7 +79,8 @@ instance Show BadBuildPlan where
unpack $ concatMap go $ mapToList errs
where
go ((dep, mdepVer), users) = unlines
$ showDepVer dep mdepVer
$ ""
: showDepVer dep mdepVer
: map showUser (mapToList users)
showDepVer :: PackageName -> Maybe Version -> Text