X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Ftypecheck%2FTcGenDeriv.lhs;h=2c1ce9e9eea4f42b665a5fb0cb7657f080ec1048;hb=3f1b316d7035c55cd712cd39a9981339bcef2e8c;hp=d67ffc0aba0850c6c62df141c77b5bcfbe2a9897;hpb=25f84fa7e4b84c3db5ba745a7881c009b778e0b1;p=ghc-hetmet.git

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}