[Pkg-haskell-commits] [tools] 02/03: Nicer code

[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 d05c83ff8b8e8021f9d0c229279f6be96821c4b3
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Aug 26 14:15:44 2014 -0700

    Nicer code
---
 binNMUs.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/binNMUs.hs b/binNMUs.hs
index f92915c..0be0b3d 100644
--- a/binNMUs.hs
+++ b/binNMUs.hs
@@ -13,6 +13,7 @@ import Debian.Relation.Common
 import Debian.Relation.ByteString
 import Control.Monad
 import Text.Regex
+import Text.Regex.Base
 import System.IO
 import Control.Arrow
 import qualified Data.ByteString.Char8 as B
@@ -285,8 +286,8 @@ acquirePackages conf url = do
         flatRels = map (\(Rel (BinPkgName n) _ _) -> n) . join
 
         likelyInteresting =
-            maybe False (isJust . matchRegex (roughRegex conf)) (optField "Depends") ||
-            maybe False (isJust . matchRegex (roughRegex conf)) (optField "Provides")
+            maybe False (matchTest (roughRegex conf)) (optField "Depends") ||
+            maybe False (matchTest (roughRegex conf)) (optField "Provides")
 
         b = Binary
             pkg

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