Repository : ssh://darcs.haskell.org//srv/darcs/packages/hpc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/4d661848575009bbcf3fe8e1f7c69da12f1d3a8e >--------------------------------------------------------------- commit 4d661848575009bbcf3fe8e1f7c69da12f1d3a8e Author: Simon Marlow <[email protected]> Date: Tue Mar 20 12:12:06 2012 +0000 fix bug in instance HpcHash (a,b) (GHC ticket #5944) >--------------------------------------------------------------- Trace/Hpc/Util.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/Trace/Hpc/Util.hs b/Trace/Hpc/Util.hs index 5bfbab9..ae88aca 100644 --- a/Trace/Hpc/Util.hs +++ b/Trace/Hpc/Util.hs @@ -101,7 +101,7 @@ instance HpcHash a => HpcHash [a] where toHash xs = foldl' (\ h c -> toHash c `hxor` (h * 33)) 5381 xs instance (HpcHash a,HpcHash b) => HpcHash (a,b) where - toHash (a,b) = toHash a * 33 `hxor` toHash b + toHash (a,b) = (toHash a * 33) `hxor` toHash b instance HpcHash HpcPos where toHash (P a b c d) = Hash $ fromIntegral $ a * 0x1000000 + b * 0x10000 + c * 0x100 + d _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
