From: simonpj@microsoft.com <unknown>
Date: Mon, 17 Sep 2007 16:11:33 +0000 (+0000)
Subject: Comments only
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=b113ebfade3ef28964a98966a4e6888e562c76e2

Comments only
---

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}