[commit: Cabal] master: Make the qa check return an exit code reporting the status (cdac57d)

[Paolo Capriotti]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/cdac57db6801683b05c2b9ee688805e218cef91a

>---------------------------------------------------------------

commit cdac57db6801683b05c2b9ee688805e218cef91a
Author: Lennart Kolmodin <kolmodin at gentoo.org>
Date:   Thu Feb 21 21:32:01 2008 +0000

    Make the qa check return an exit code reporting the status

>---------------------------------------------------------------

 cabal-install/Hackage/Check.hs |    3 ++-
 cabal-install/Main.hs          |    5 ++++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/cabal-install/Hackage/Check.hs b/cabal-install/Hackage/Check.hs
index 0603c4c..f2ba43c 100644
--- a/cabal-install/Hackage/Check.hs
+++ b/cabal-install/Hackage/Check.hs
@@ -23,7 +23,7 @@ import Distribution.PackageDescription.Configuration ( flattenPackageDescription
 import Distribution.Verbosity ( Verbosity )
 import Distribution.Simple.Utils ( defaultPackageDesc )
 
-check :: Verbosity -> IO ()
+check :: Verbosity -> IO Bool
 check verbosity = do
     pdfile <- defaultPackageDesc verbosity
     ppd <- readPackageDescription verbosity pdfile
@@ -78,3 +78,4 @@ check verbosity = do
     when (null packageChecks) $ do
         putStrLn "No errors or warnings could be found in the package."
 
+    return (null packageChecks)
diff --git a/cabal-install/Main.hs b/cabal-install/Main.hs
index 6d222a2..28b83fb 100644
--- a/cabal-install/Main.hs
+++ b/cabal-install/Main.hs
@@ -202,4 +202,7 @@ checkAction :: Flag Verbosity -> [String] -> IO ()
 checkAction verbosityFlag extraArgs = do
   unless (null extraArgs) $ do
     die $ "'check' doesn't take any extra arguments: " ++ unwords extraArgs
-  Check.check (fromFlag verbosityFlag)
+  allOk <- Check.check (fromFlag verbosityFlag)
+  if allOk
+    then exitWith ExitSuccess
+    else exitWith (ExitFailure 1)