[Pkg-haskell-commits] [tools] 01/07: Show less problems in the summary

[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 c9730c25c377e611ef5efb1dce97526851691a01
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Aug 26 17:03:54 2014 -0700

    Show less problems in the summary
---
 binNMUs.hs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/binNMUs.hs b/binNMUs.hs
index 02f4809..2d3c33b 100644
--- a/binNMUs.hs
+++ b/binNMUs.hs
@@ -86,8 +86,8 @@ printHeader conf = do
     putCLn $ "It is now " ++ show t
     putCLn $ "I am processing these architectures: " ++ intercalate ", " (arches conf)
     putCLn $ "I am looking for virtual packages matching " ++ regexS conf
-    putCLn $ if sql conf then "I read my data from SQL"
-                         else "I read my data via HTTP"
+    putCLn $ if sql conf then "I read my data from SQL."
+                         else "I read my data via HTTP."
     putStrLn ""
 
 -- | Presentation of binNMUs
@@ -100,7 +100,11 @@ presentProblems cBinNMUs
         putCLn "These dependency changes are observed:"
         mapM_ (putCLn . formatReason) (S.toAscList problems)
         putStrLn ""
-  where problems = S.fromList $ concatMap (^. (_2._3)) cBinNMUs
+  where problems =
+            S.fromList $
+            concatMap (^. (_2._3)) $
+            filter (not . ignoreStatus . fst) $
+            cBinNMUs
 
 statusHeader :: Status -> String
 statusHeader Needed = "Actually required NMUs"

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