diff options
Diffstat (limited to 'libraries/base/GHC/Show.hs')
| -rw-r--r-- | libraries/base/GHC/Show.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/libraries/base/GHC/Show.hs b/libraries/base/GHC/Show.hs index c52824b165..6965335e64 100644 --- a/libraries/base/GHC/Show.hs +++ b/libraries/base/GHC/Show.hs @@ -39,7 +39,7 @@ module GHC.Show -- Show support code shows, showChar, showString, showMultiLineString, - showParen, showList__, showSpace, + showParen, showList__, showCommaSpace, showSpace, showLitChar, showLitString, protectEsc, intToDigit, showSignedInt, appPrec, appPrec1, @@ -344,6 +344,8 @@ showParen b p = if b then showChar '(' . p . showChar ')' else p showSpace :: ShowS showSpace = {-showChar ' '-} \ xs -> ' ' : xs +showCommaSpace :: ShowS +showCommaSpace = showString ", " -- Code specific for characters -- | Convert a character to a string using only printable characters, |