diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2017-09-21 17:38:08 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2017-09-25 11:07:23 +0100 |
| commit | 7721e8ee77780211a3ed4e8e5ba21bec8d54848d (patch) | |
| tree | 0a4eb96e770e748c53238593280847a244144c2e /compiler/utils | |
| parent | 3c74a51232813eb733b27c43c94ce005112a0ddb (diff) | |
| download | haskell-7721e8ee77780211a3ed4e8e5ba21bec8d54848d.tar.gz | |
Make pprQuotedList use fsep not hsep
This just does wrapping on very long lists
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Outputable.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/Outputable.hs b/compiler/utils/Outputable.hs index d257e3ec9f..c79cbc5551 100644 --- a/compiler/utils/Outputable.hs +++ b/compiler/utils/Outputable.hs @@ -1019,7 +1019,7 @@ pprQuotedList :: Outputable a => [a] -> SDoc pprQuotedList = quotedList . map ppr quotedList :: [SDoc] -> SDoc -quotedList xs = hsep (punctuate comma (map quotes xs)) +quotedList xs = fsep (punctuate comma (map quotes xs)) quotedListWithOr :: [SDoc] -> SDoc -- [x,y,z] ==> `x', `y' or `z' |