[DHG_packages] 09/10: make-all: Shorter, more helpful error message when the build fails

[Joachim Breitner]

This is an automated email from the git hooks/post-receive script.

nomeata pushed a commit to branch master
in repository DHG_packages.

commit 172db16910a7aa2559ecc228382005b54c47c3a6
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Aug 11 11:29:01 2015 +0200

    make-all: Shorter, more helpful error message when the build fails
---
 make-all.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/make-all.hs b/make-all.hs
index 1758f94..3922d37 100644
--- a/make-all.hs
+++ b/make-all.hs
@@ -8,6 +8,7 @@ import Data.Maybe
 import Control.Monad
 import Text.Read
 import System.Directory.Extra
+import System.Exit
 
 import Options.Applicative hiding (many)
 import qualified Options.Applicative as O
@@ -275,8 +276,11 @@ shakeMain conf@(Conf {..}) = do
             liftIO $ writeFile fixup  $ fixupScript usedDeps
             localDebs <- filter ((==".deb").takeExtension) . map (makeRelative targetDir) <$> liftIO (listFiles targetDir)
             let debs = filter ((`S.member` usedDepsS) . debFileNameToPackage) localDebs
-            unit $ cmd (Cwd targetDir) (EchoStdout False)
+            Exit c <- cmd (Cwd targetDir) (EchoStdout False)
                 ["sbuild", "-c", "haskell","-A","--no-apt-update","--dist", distribution, "--chroot-setup-commands=bash "++fixup, dsc] ["--extra-package="++d | d <- debs]
+            unless (c == ExitSuccess) $ do
+                putNormal $ "Failed to build " ++ source ++ "_" ++ version
+                putNormal $ "See " ++ targetDir </> logFileName source version ++ " for details."
 
 
     -- Build log depends on the corresponding source, and the dependencies

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-haskell/DHG_packages.git