[Pkg-haskell-commits] darcs: tools: Make ./haskell-pkg-debcheck.hs compile

[Joachim Breitner]

Tue Mar 20 21:53:35 UTC 2012  Joachim Breitner <mail at joachim-breitner.de>
  * Make ./haskell-pkg-debcheck.hs compile
  Ignore-this: 7daa1807d0c698bae439e288a525116a

    M ./haskell-pkg-debcheck.hs -3 +6

Tue Mar 20 21:53:35 UTC 2012  Joachim Breitner <mail at joachim-breitner.de>
  * Make ./haskell-pkg-debcheck.hs compile
  Ignore-this: 7daa1807d0c698bae439e288a525116a
diff -rN -u old-tools//haskell-pkg-debcheck.hs new-tools//haskell-pkg-debcheck.hs
--- old-tools//haskell-pkg-debcheck.hs	2012-03-20 21:53:49.107374985 +0000
+++ new-tools//haskell-pkg-debcheck.hs	2012-03-20 21:53:49.111263923 +0000
@@ -36,7 +36,7 @@
 
 arches :: [Arch]
 --arches = ["amd64", "i386"]
-arches = words "amd64 armel i386 mips mipsel powerpc s390 sparc kfreebsd-amd64 kfreebsd-i386"
+arches = words "amd64 armel armhf hurd-i386 i386 mips mipsel powerpc s390 s390x sparc kfreebsd-amd64 kfreebsd-i386"
 
 
 -- File locations
@@ -44,6 +44,9 @@
 binariesFiles arch = "data/unstable-main-binary-" ++ arch ++ "-Packages.gz"
 wbDump arch = "data/wanna-build-dump-" ++ arch ++ ".gz"
 
+instance Show DebianVersion where show v = render (prettyDebianVersion v)
+instance Show Relation where show v = render (prettyRelation v)
+
 data SourceInfo = SourceInfo
     { siName :: PkgName
     , siVersion :: DebianVersion
@@ -358,5 +361,5 @@
     hashWithSalt s (GRE v) = hashWithSalt s (4::Int,v)
     hashWithSalt s (SGR v) = hashWithSalt s (5::Int,v)
 
-instance Show a => Show (S.HashSet a) where
-    show s = "fromList " ++ show (S.toList s)
+--instance Show a => Show (S.HashSet a) where
+--    show s = "fromList " ++ show (S.toList s)