Commit a00200e3 authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Packages are only invalid if they have more than zero problems.

parent 68e5cfc7
......@@ -291,8 +291,10 @@ showPlanProblem (PackageInconsistency name inconsistencies) =
problems :: OS -> Arch -> CompilerId
-> PackageIndex (PlanPackage a) -> [PlanProblem a]
problems os arch comp index =
[ PackageInvalid pkg (configuredPackageProblems os arch comp pkg)
| Configured pkg <- PackageIndex.allPackages index ]
[ PackageInvalid pkg packageProblems
| Configured pkg <- PackageIndex.allPackages index
, let packageProblems = configuredPackageProblems os arch comp pkg
, not (null packageProblems) ]
++ [ PackageMissingDeps pkg missingDeps
| (pkg, missingDeps) <- PackageIndex.brokenPackages index ]
......
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