X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2FcoreSyn%2FPprCore.lhs;h=8e1c73d28dbb8f509ab3c67fb00deb64f0184028;hp=412c62d4c5ce674ab403bc0fb1a724217de371f5;hb=2f51f1402e6869c0f049ffbe7b019bf6ab80558f;hpb=c49d51f812da9b1c2ceca7e0dad8f2a3626041a9

diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index 412c62d..8e1c73d 100644
--- a/ghc/compiler/coreSyn/PprCore.lhs
+++ b/ghc/compiler/coreSyn/PprCore.lhs
@@ -32,7 +32,7 @@ import Id		( idType, getIdInfo, getIdStrictness,
 			)
 import IdInfo		( ppIdInfo, StrictnessInfo(..) )
 import Literal		( Literal{-instances-} )
-import Name		( isOpLexeme )
+import Name		( isSymLexeme )
 import Outputable	-- quite a few things
 import PprEnv
 import PprType		( GenType{-instances-}, GenTyVar{-instance-} )
@@ -309,7 +309,7 @@ ppr_alts pe (AlgAlts alts deflt)
 	     4 (ppr_expr pe expr)
       where
     	ppr_con con pp_con
-    	  = if isOpLexeme con then ppParens pp_con else pp_con
+    	  = if isSymLexeme con then ppParens pp_con else pp_con
 
 ppr_alts pe (PrimAlts alts deflt)
   = ppAboves [ ppAboves (map ppr_alt alts), ppr_default pe deflt ]