[Pkg-haskell-commits] [package-plan] 01/02: update-suggestions: Warn if not the latest version

[Joachim Breitner]

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

nomeata pushed a commit to branch master
in repository package-plan.

commit 9356d0f365d0e30739c3635d52824b410874a12e
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Jun 3 16:16:33 2014 +0200

    update-suggestions: Warn if not the latest version
---
 update-suggestions.hs | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/update-suggestions.hs b/update-suggestions.hs
index 5d3bbdf..56dfed1 100644
--- a/update-suggestions.hs
+++ b/update-suggestions.hs
@@ -9,6 +9,7 @@ minor upgrades (first three components of the version identical).
 import qualified Data.Map as M
 import Control.Monad
 import Data.List
+import Data.Maybe
 import Data.Functor
 import System.Process.ByteString
 import Text.Printf
@@ -68,15 +69,16 @@ main :: IO ()
 main = do
     versions <- readCabalVersions
     packagePlan <- readPackagePlan
-    forM_ (M.toList packagePlan) $ \(pkg, plan) ->
-        case filter (candidate plan) <$> M.lookup pkg versions of
-            Nothing -> return ()
-            Just [] -> return ()
-            Just better -> do
-                let best = maximum better
-                putStrLn $ printf "%s %s -> %s (%s)"
-                    (BS.unpack pkg)
-                    (showVersionNumber plan)
-                    (showVersionNumber best)
-                    (hdiffLink pkg plan best)
+    forM_ (M.toList packagePlan) $ \(pkg, plan) -> do
+        let avail = fromMaybe [] $ M.lookup pkg versions
+        let better = filter (candidate plan) avail
+        unless (null better) $ do
+            let latest = maximum avail
+            let best = maximum better
+            putStrLn $ printf "%s %s -> %s%s (%s)"
+                (BS.unpack pkg)
+                (showVersionNumber plan)
+                (showVersionNumber best)
+                (if latest == best then "" else " < " ++ showVersionNumber latest)
+                (hdiffLink pkg plan best)
 

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