+ let indexFile = appDir </> "00-index.tar.gz"
+
+ putStrLn "Downloading the Hackage index..."
+ cwd <- pwd
+ cd appDir
+ runIO ("wget", ["-N", indexURL])
+ cd cwd
+ putStrLn "Done."
+
+ indexBin <- Lazy.readFile indexFile
+ let runQuery q = queryIndex q indexBin
+
+ makefiles <- namesMatching (pkgsrcPath </> "*" </> "*" </> "Makefile")
+ scanPkgs runQuery makefiles
+
+scanPkgs :: (Query -> [PackageDescription]) -> [FilePath] -> IO ()
+scanPkgs runQuery = mapM_ scanPkg
+ where
+ scanPkg :: FilePath -> IO ()
+ scanPkg makPath
+ = do isCabalPkg <- run ("fgrep", ["-q", "mk/haskell.mk", makPath])
+ when isCabalPkg
+ $ checkPkg makPath
+
+ checkPkg :: FilePath -> IO ()
+ checkPkg makPath
+ = do mak <- readFile makPath
+ 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 ()
+
+extractPkgName :: String -> PackageName
+extractPkgName = PackageName . head . split "-"
+
+extractPkgVersion :: String -> Version
+extractPkgVersion = take' . readP_to_S parseVersion . last . split "-"
+ where
+ take' ((v, ""):_ ) = v
+ take' (_ :xs) = take' xs