[Pkg-haskell-commits] [tools] 01/01: binNMUs: differentiate between known and default arches

[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 a491c0658568c19b7a099f29c239313eb887817e
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Sun May 24 12:10:26 2015 +0200

    binNMUs: differentiate between known and default arches
---
 binNMUs.hs | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/binNMUs.hs b/binNMUs.hs
index 88971e6..20cc94b 100644
--- a/binNMUs.hs
+++ b/binNMUs.hs
@@ -29,14 +29,25 @@ import Database.PostgreSQL.Simple.Types (Query(Query))
 
 import AcquireFile
 
+defaultArches :: [Arch]
+defaultArches = words "amd64 arm64 armel armhf hurd-i386 i386 mips mipsel powerpc ppc64el s390x kfreebsd-amd64 kfreebsd-i386"
+
+-- non-default arches
+extraArches :: [Arch]
+extraArches = words "sparc"
+
 allArches :: [Arch]
-allArches = words "amd64 arm64 armel armhf hurd-i386 i386 mips mipsel powerpc ppc64el s390x kfreebsd-amd64 kfreebsd-i386"
+allArches = defaultArches ++ extraArches
 
 type SourceName = String
 type Version = String
 type Arch = String
 
-data VirtPackage = VirtPackage {vpFull :: String, vpBase :: VirtPackageBase, vpHash :: String}
+data VirtPackage = VirtPackage
+    { vpFull :: String
+    , vpBase :: VirtPackageBase
+    , vpHash :: String
+    }
     deriving (Eq, Ord, Show)
 type VirtPackageBase = String -- just the part without the hash (and without libghc-)
 
@@ -81,7 +92,6 @@ run conf = do
         putCLn $ "Use --sql on wuiet.debian.org!"
         exitFailure
     rms <- fetchWnppDump conf
-    putCLn $ "Pending removals: " ++ show rms
     cBinNMUss <- mapM (getNMUs conf rms) (arches conf)
     -- Parallelization, if required
     --let cBinNMUs = concat (cBinNMUss `using` parList (evalList (evalTuple2 rseq rseq)))
@@ -522,7 +532,7 @@ conf = mkConf
     long "arches" <>
     metavar "ARCH,ARCH,..." <>
     help "comma or space separated list of architectures" <>
-    value allArches <>
+    value defaultArches <>
     showDefaultWith (intercalate ", ")
     )
  <*> strOption (

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