X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypecheck%2FTcGenDeriv.lhs;h=faa32ec18b10009a9bce6db2b060a796e87a5176;hp=19c8da82a2db80f61e8558900506988fe0c0708d;hb=0e0b98409b23dd84ef11aea611b104d8e20abae3;hpb=59a54a3f38fbc2362982873ac3ae0d0f56c17bbb

diff --git a/ghc/compiler/typecheck/TcGenDeriv.lhs b/ghc/compiler/typecheck/TcGenDeriv.lhs
index 19c8da8..faa32ec 100644
--- a/ghc/compiler/typecheck/TcGenDeriv.lhs
+++ b/ghc/compiler/typecheck/TcGenDeriv.lhs
@@ -54,7 +54,6 @@ import TysWiredIn	( charDataCon, intDataCon, floatDataCon, doubleDataCon,
 			  intDataCon_RDR, true_RDR, false_RDR )
 import Util		( zipWithEqual, isSingleton,
 			  zipWith3Equal, nOfThem, zipEqual )
-import Char		( isAlpha )
 import Constants
 import List		( partition, intersperse )
 import Outputable
@@ -776,9 +775,9 @@ gen_Read_binds get_fixity tycon
      	 
        	infix_stmts 		-- a %% b, or  a `T` b 
        	  = [read_a1]
-   	    ++	if isSym con_str
-		then [bindLex (symbol_pat con_str)]
-		else [read_punc "`", bindLex (ident_pat con_str), read_punc "`"]
+   	    ++	(if isSym con_str
+		 then [bindLex (symbol_pat con_str)]
+		 else [read_punc "`", bindLex (ident_pat con_str), read_punc "`"])
 	    ++ [read_a2]
      
        	lbl_stmts		-- T { f1 = a, f2 = b }