diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-03-02 18:37:23 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-03-02 19:58:01 -0500 |
| commit | 615ded12f47d3685606bcfabb4f1980e748be1d9 (patch) | |
| tree | 80727cab9a2f376388ddc421eaef4a839b5cbe81 /compiler/prelude/PrelNames.hs | |
| parent | 6421c6f2bb56bcdf2415e8556180821eedd77d2d (diff) | |
| download | haskell-615ded12f47d3685606bcfabb4f1980e748be1d9.tar.gz | |
Show: Add ShowS for ", "
This is produced often enough in derived Show instances that it is likely
worthwhile defining it once.
Diffstat (limited to 'compiler/prelude/PrelNames.hs')
| -rw-r--r-- | compiler/prelude/PrelNames.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/prelude/PrelNames.hs b/compiler/prelude/PrelNames.hs index 470b736286..0ae3867605 100644 --- a/compiler/prelude/PrelNames.hs +++ b/compiler/prelude/PrelNames.hs @@ -751,13 +751,14 @@ prec_RDR = varQual_RDR rEAD_PREC (fsLit "prec") pfail_RDR = varQual_RDR rEAD_PREC (fsLit "pfail") showList_RDR, showList___RDR, showsPrec_RDR, shows_RDR, showString_RDR, - showSpace_RDR, showParen_RDR :: RdrName + showSpace_RDR, showCommaSpace_RDR, showParen_RDR :: RdrName showList_RDR = varQual_RDR gHC_SHOW (fsLit "showList") showList___RDR = varQual_RDR gHC_SHOW (fsLit "showList__") showsPrec_RDR = varQual_RDR gHC_SHOW (fsLit "showsPrec") shows_RDR = varQual_RDR gHC_SHOW (fsLit "shows") showString_RDR = varQual_RDR gHC_SHOW (fsLit "showString") showSpace_RDR = varQual_RDR gHC_SHOW (fsLit "showSpace") +showCommaSpace_RDR = varQual_RDR gHC_SHOW (fsLit "showCommaSpace") showParen_RDR = varQual_RDR gHC_SHOW (fsLit "showParen") undefined_RDR :: RdrName |