From 7721e8ee77780211a3ed4e8e5ba21bec8d54848d Mon Sep 17 00:00:00 2001 From: Simon Peyton Jones Date: Thu, 21 Sep 2017 17:38:08 +0100 Subject: Make pprQuotedList use fsep not hsep This just does wrapping on very long lists --- compiler/utils/Outputable.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'compiler') 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' -- cgit v1.2.1