[Pkg-haskell-commits] darcs: tools: Also use HashSet (again, no speed up. Parsing seems to be the bottleneck)

[Joachim Breitner]

Sat Jun  4 13:19:32 UTC 2011  Joachim Breitner <mail at joachim-breitner.de>
  * Also use HashSet (again, no speed up. Parsing seems to be the bottleneck)
  Ignore-this: b8081bb1f1c7443bb1a8c334ac8de748

    M ./haskell-pkg-debcheck.hs -1 +4

Sat Jun  4 13:19:32 UTC 2011  Joachim Breitner <mail at joachim-breitner.de>
  * Also use HashSet (again, no speed up. Parsing seems to be the bottleneck)
  Ignore-this: b8081bb1f1c7443bb1a8c334ac8de748
diff -rN -u old-tools//haskell-pkg-debcheck.hs new-tools//haskell-pkg-debcheck.hs
--- old-tools//haskell-pkg-debcheck.hs	2011-06-04 13:20:07.088280775 +0000
+++ new-tools//haskell-pkg-debcheck.hs	2011-06-04 13:20:07.100297003 +0000
@@ -24,7 +24,7 @@
 import Debian.Version.ByteString
 import qualified Data.HashMap.Lazy as M
 -- import Data.Map ((!))
-import qualified Data.Set as S
+import qualified Data.HashSet as S
 import Debug.Trace
 import Text.Printf
 
@@ -353,3 +353,6 @@
     hashWithSalt s (EEQ v) = hashWithSalt s (3::Int,v)
     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)