[project @ 2000-06-09 07:32:31 by simonpj]

[ghc-hetmet.git] / ghc / compiler / basicTypes / OccName.lhs

diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs
index 98eb7c1..76cbbb0 100644 (file)
--- a/ghc/compiler/basicTypes/OccName.lhs
+++ b/ghc/compiler/basicTypes/OccName.lhs
@@ -66,19 +66,7 @@ type EncodedString = String  -- Encoded form
 
 
 pprEncodedFS :: EncodedFS -> SDoc
-pprEncodedFS fs
-  = getPprStyle        $ \ sty ->
-    if userStyle sty then
-       let
-           s = decode (_UNPK_ fs)
-           c = head s
-       in
-       if startsVarSym c || startsConSym c then
-               parens (text s)
-       else
-               text s 
-    else
-       ptext fs
+pprEncodedFS fs = ptext fs
 \end{code}
 
 %************************************************************************