From b113ebfade3ef28964a98966a4e6888e562c76e2 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Mon, 17 Sep 2007 16:11:33 +0000
Subject: [PATCH] Comments only

---
 compiler/typecheck/TcGenDeriv.lhs |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcGenDeriv.lhs b/compiler/typecheck/TcGenDeriv.lhs
index d67ffc0..2c1ce9e 100644
--- a/compiler/typecheck/TcGenDeriv.lhs
+++ b/compiler/typecheck/TcGenDeriv.lhs
@@ -1006,7 +1006,10 @@ appPrecedence = fromIntegral maxPrecedence + 1
 getPrecedence :: FixityEnv -> Name -> Integer
 getPrecedence get_fixity nm 
    = case lookupFixity get_fixity nm of
-        Fixity x _ -> fromIntegral x
+        Fixity x _assoc -> fromIntegral x
+	  -- NB: the Report says that associativity is not taken 
+  	  --     into account for either Read or Show; hence we 
+	  --     ignore associativity here
 \end{code}
 
 
-- 
1.7.10.4