[commit: hpc] ghc-7.4: fix bug in instance HpcHash (a, b) (GHC ticket #5944) (ffd12b9)

[Paolo Capriotti]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/hpc

On branch  : ghc-7.4

http://hackage.haskell.org/trac/ghc/changeset/ffd12b9a17dfdffef8ca4dd215e5c081d9b082fa

>---------------------------------------------------------------

commit ffd12b9a17dfdffef8ca4dd215e5c081d9b082fa
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Tue Mar 20 12:12:06 2012 +0000

    fix bug in instance HpcHash (a,b) (GHC ticket #5944)
    
    MERGED from commit 4d661848575009bbcf3fe8e1f7c69da12f1d3a8e

>---------------------------------------------------------------

 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