[Pkg-haskell-commits] [tools] 02/02: binNMUs: wanna-build db seems to use codenames now

[Joachim Breitner]

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

nomeata pushed a commit to branch master
in repository tools.

commit 50dde7c3ed141328a73d81ef244a75d243945a18
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Feb 3 13:29:31 2015 +0100

    binNMUs: wanna-build db seems to use codenames now
---
 binNMUs.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/binNMUs.hs b/binNMUs.hs
index aaff3d7..e4b2f7c 100644
--- a/binNMUs.hs
+++ b/binNMUs.hs
@@ -74,8 +74,8 @@ data Binary = Binary
 run :: Conf -> IO ()
 run conf = do
     printHeader conf
-    when (not (sql conf) && distribution conf /= "unstable") $ do
-        putCLn $ "When reading data via HTTP, only unsable is supported"
+    when (not (sql conf) && distribution conf /= "sid") $ do
+        putCLn $ "When reading data via HTTP, only sid is supported"
         putCLn $ "as other distributions do not have dumps of the wanna-build data."
         putCLn $ "Use --sql on wuiet.debian.org!"
         exitFailure
@@ -318,8 +318,8 @@ fetchWannaBuildHTTP conf a = do
 -- Reading archive files
 
 packageURL :: String -> Arch -> String
-packageURL "unstable" a        = printf "http://http.debian.net/debian/dists/sid/main/binary-%s/Packages.gz" a
-packageURL "buildd-unstable" a = printf "http://incoming.debian.org/debian-buildd/dists/buildd-sid/main/binary-%s/Packages.gz" a
+packageURL "sid" a        = printf "http://http.debian.net/debian/dists/sid/main/binary-%s/Packages.gz" a
+packageURL "buildd-sid" a = printf "http://incoming.debian.org/debian-buildd/dists/buildd-sid/main/binary-%s/Packages.gz" a
 packageURL "experimental" a    = printf "http://http.debian.net/debian/dists/experimental/main/binary-%s/Packages.gz" a
 packageURL "buildd-experimental" a = printf "http://incoming.debian.org/debian-buildd/dists/buildd-experimental/main/binary-%s/Packages.gz" a
 
@@ -444,7 +444,7 @@ fetchBins = Query $ B.pack $ "\
     \    JOIN metadata_keys pmk ON pmk.key = 'Provides'    \
     \    LEFT OUTER JOIN binaries_metadata pm ON pm.bin_id = binaries.id AND pmk.key_id = pm.key_id    \
     \WHERE    \
-    \    suite.suite_name IN (?,?)  \
+    \    suite.codename IN (?,?)  \
     \    AND arch_string = ?    \
     \    AND (dm.value ~ ? OR pm.value ~ ? )    \
     \ORDER BY \
@@ -487,7 +487,7 @@ conf = mkConf
     metavar "DIST" <>
     help "Distribution to produce binNMUs for" <>
     showDefault <>
-    value "unstable"
+    value "sid"
     )
  <*> option parseArches (
     long "arches" <>

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