[Pkg-haskell-commits] [package-plan] 01/02: update-suggestions: Warn if not the latest version
Joachim Breitner
nomeata at moszumanska.debian.org
Tue Jun 3 14:28:11 UTC 2014
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
More information about the Pkg-haskell-commits
mailing list