[tools] 01/01: binNMUs: Show Failed builds even when it is not a binNMU that failed

[Joachim Breitner]

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

nomeata pushed a commit to branch master
in repository tools.

commit dda30656e739bf0624234e13f3e72e3af3b4203c
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Jul 19 12:27:26 2016 +0200

    binNMUs: Show Failed builds even when it is not a binNMU that failed
---
 binNMUs.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/binNMUs.hs b/binNMUs.hs
index 9b5f7d6..6526247 100644
--- a/binNMUs.hs
+++ b/binNMUs.hs
@@ -239,12 +239,14 @@ categorize available wbmap rms (p,deps) =
     case M.lookup (bSourceName p) wbmap of
       Nothing -> Missing
       Just (v,bv,s)
+        | s == "build-attempted"   -> Failed
+        | s == "failed"            -> Failed
         | v /= bSrcVersion p       -> WrongSrcVersion
         | bSourceName p `elem` rms -> PendingRemoval
         | s == "installed" && bv /= bVersion p
                                    -> WrongVersion
         | s `elem` waiting         -> Waiting
-        | any (isMissing) deps     -> DepsMissing
+        | any isMissing deps       -> DepsMissing
         | s == "installed"         -> Needed
         | otherwise                -> Failed
   where waiting = words "bd-uninstallable building built uploaded needs-build"

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