[project @ 1996-07-19 18:36:04 by partain]

[ghc-hetmet.git] / ghc / compiler / utils / Unpretty.lhs

diff --git a/ghc/compiler/utils/Unpretty.lhs b/ghc/compiler/utils/Unpretty.lhs
index 8e35e3c..aa0f753 100644 (file)
--- a/ghc/compiler/utils/Unpretty.lhs
+++ b/ghc/compiler/utils/Unpretty.lhs
@@ -93,7 +93,7 @@ uppInt n      = cInt n
 uppInteger n   = cStr (show n)
 
 uppSP          = cCh ' '
-upp'SP{-'-}    = cPStr SLIT(", ")
+upp'SP{-'-}    = uppBeside uppComma uppSP
 uppLbrack      = cCh '['
 uppRbrack      = cCh ']'
 uppLparen      = cCh '('