Fix urgency handling
authorJoachim Breitner <mail@joachim-breitner.de>
Thu, 5 Jul 2012 21:19:10 +0000 (23:19 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Thu, 5 Jul 2012 21:19:10 +0000 (23:19 +0200)
Main.hs
TransRules.hs

diff --git a/Main.hs b/Main.hs
index 0d3ba42..b0e1290 100644 (file)
--- a/Main.hs
+++ b/Main.hs
@@ -51,7 +51,7 @@ minAgeTable = M.fromList [
     (Urgency "medium", Age 5),
     (Urgency "high", Age 2),
     (Urgency "critical", Age 2),
-    (Urgency "emergency", Age 2)
+    (Urgency "emergency", Age 0)
     ]
 
 defaultConfig :: Config
index 2e5c77f..250cfd8 100644 (file)
@@ -46,7 +46,7 @@ findNonCandidates config ai unstable testing general builtBy hr f x =
                            | otherwise
                            = fromMaybe (defaultMinAge config) $
                              urgencies general `combine` minAges config $ src,
-                age <= minAge
+                age < minAge
             ] 
         outdated = 
             -- release architectures ought not to be out of date