- case grep "DISTNAME=" (lines mak) of
- [l] -> do let line = (trd ' ' . trd '\t') l
- distname = cut 1 '=' line
- pkgName = extractPkgName distname
- pkgVer = extractPkgVersion distname
- pkgId = PackageIdentifier pkgName pkgVer
- putStrLn (distname ++ ": " ++ show pkgId)
- _ -> return ()
+ case grep "mk/haskell.mk" (lines mak) of
+ [] -> return ()
+ _ -> checkPkg mak
+
+ checkPkg :: String -> IO ()
+ checkPkg mak
+ = case grep "DISTNAME=" (lines mak) of
+ [l] -> let line = (trd ' ' . trd '\t') l
+ distname = cut 1 '=' line
+ name = extractPkgName distname
+ ver = extractPkgVersion distname
+ pkgId = PackageIdentifier name ver
+ query = Id (sameName pkgId) :& Id (newerVers pkgId)
+ in
+ case runQuery query of
+ [] -> putStrLn (distname ++ ": is the LATEST")
+ xs -> let sorted = sortBy cmpVers xs
+ latest = last sorted
+ lVer = (pkgVersion . package) latest
+ in
+ putStrLn (distname ++ ": has a newer version " ++ showVersion lVer)
+ _ -> return ()
+
+ sameName :: PackageIdentifier -> PackageIdentifier -> Bool
+ sameName a b = pkgName a == pkgName b
+
+ newerVers :: PackageIdentifier -> PackageIdentifier -> Bool
+ newerVers a b = pkgVersion a < pkgVersion b
+
+ cmpVers :: PackageDescription -> PackageDescription -> Ordering
+ cmpVers a b = (pkgVersion . package) a `compare` (pkgVersion . package) b