diff options
| -rw-r--r-- | utils/ghc-cabal/Main.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/utils/ghc-cabal/Main.hs b/utils/ghc-cabal/Main.hs index f0662519d8..4ae85ecbd0 100644 --- a/utils/ghc-cabal/Main.hs +++ b/utils/ghc-cabal/Main.hs @@ -114,11 +114,9 @@ doCheck directory $ do let verbosity = normal gpdFile <- defaultPackageDesc verbosity gpd <- readPackageDescription verbosity gpdFile - case partition isFailure $ checkPackage gpd Nothing of - ([], []) -> return () - ([], warnings) -> mapM_ print warnings - (errs, _) -> do mapM_ print errs - exitWith (ExitFailure 1) + case filter isFailure $ checkPackage gpd Nothing of + [] -> return () + errs -> mapM_ print errs >> exitWith (ExitFailure 1) where isFailure (PackageDistSuspicious {}) = False isFailure _ = True |