X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2Fghci%2FInteractiveUI.hs;h=a686e436904ce1dd6ae5b62ca9d3a578f3ae849e;hp=42f6b1b535d37efcfc4fda7b9c2409e96272c6b6;hb=8e67f5502e2e316245806ee3735a2f41a844b611;hpb=d9fd6a665237f0e2ab769915db873b9d72bd1c0a

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 42f6b1b..a686e43 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -#include "Linker.h" #-}
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.190 2005/02/23 15:38:52 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.191 2005/02/25 13:07:10 simonpj Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -27,7 +27,7 @@ import DriverUtil	( remove_spaces )
 import Linker		( showLinkerState, linkPackages )
 import Util
 import Name		( Name, NamedThing(..) )
-import OccName		( OccName, isSymOcc, occNameUserString )
+import OccName		( OccName, parenSymOcc, occNameUserString )
 import BasicTypes	( StrictnessMark(..), defaultFixity, SuccessFlag(..) )
 import Outputable
 import CmdLineOpts	( DynFlags(..), DynFlag(..), dopt )
@@ -622,8 +622,7 @@ ppr_trim show xs
 
 ppr_bndr :: OccName -> SDoc
 -- Wrap operators in ()
-ppr_bndr occ | isSymOcc occ = parens (ppr occ)
-	     | otherwise    = ppr occ
+ppr_bndr occ = parenSymOcc occ (ppr occ)
 
 
 -----------------------------------------------------------------------------