[Pkg-haskell-commits] darcs: tools: Also use HashSet (again, no speed up. Parsing seems to be the bottleneck)
Joachim Breitner
mail at joachim-breitner.de
Sat Jun 4 13:20:07 UTC 2011
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)
More information about the Pkg-haskell-commits
mailing list