Add code name to Debian URLs
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 9 Oct 2010 10:33:26 +0000 (10:33 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 9 Oct 2010 10:33:26 +0000 (10:33 +0000)
Debian.hs
Main.hs

index 58ea9b8..64bc0cc 100644 (file)
--- a/Debian.hs
+++ b/Debian.hs
@@ -10,7 +10,7 @@ import Utils
 import Data.List
 import qualified Data.Map as M
 
-findHaskellPackages hackage (Control sources) = map getData . filter isHaskellPackage $ sources
+findHaskellPackages codename hackage (Control sources) = map getData . filter isHaskellPackage $ sources
   where        getData para = (fromDebian cabalName, Version version url)
          where package' = fieldValue "Package" para
                package = maybe (error "Source stanza without Package field") BS.unpack package'
@@ -24,18 +24,18 @@ findHaskellPackages hackage (Control sources) = map getData . filter isHaskellPa
                                        ]
                                        = found
                          | otherwise   = package
-               url = "http://packages.debian.org/source/sid/" ++ package
+               url = "http://packages.debian.org/source/" ++ codename ++ "/" ++ package
 
        isHaskellPackage para = maybe False ( ("ghc6" `isSublistOf`) . BS.unpack)
                                                (fieldValue "Build-Depends" para)
 
 
-readFile :: FilePath -> DistroInfo -> IO DistroInfo
-readFile file hackage = do
+readFile :: FilePath -> String -> DistroInfo -> IO DistroInfo
+readFile file codename hackage = do
        sourceParse <- parseControlFromFile file
        sources <- case sourceParse of
                Left error -> fail (show error)
                Right source -> return source
-       return $ M.fromList $ findHaskellPackages hackage sources
+       return $ M.fromList $ findHaskellPackages codename hackage sources
 
 
diff --git a/Main.hs b/Main.hs
index e24183a..43d8442 100644 (file)
--- a/Main.hs
+++ b/Main.hs
@@ -17,10 +17,10 @@ main = do
        hackage <- H.readFile "00-index.tar.gz"
        putStrLn $ "Read " ++ show (M.size hackage) ++ " packages from Hackage"
 
-       debian_unstable <- D.readFile "Sources.unstable" hackage
+       debian_unstable <- D.readFile "Sources.unstable" "sid" hackage
        putStrLn $ "Read " ++ show (M.size debian_unstable) ++ " packages from Debian (Unstable)"
 
-       debian_squeeze <- D.readFile "Sources.squeeze" hackage
+       debian_squeeze <- D.readFile "Sources.squeeze" "squeeze" hackage
        putStrLn $ "Read " ++ show (M.size debian_squeeze) ++ " packages from Debian (Squeeze)"