From 9182cbf40368f3a01829aa5b21b57cfaa7906d8a Mon Sep 17 00:00:00 2001 From: simonpj Date: Thu, 11 Mar 2004 14:29:29 +0000 Subject: [PATCH] [project @ 2004-03-11 14:29:29 by simonpj] Better layout in interppSP --- ghc/compiler/utils/Outputable.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ghc/compiler/utils/Outputable.lhs b/ghc/compiler/utils/Outputable.lhs index 339a3bc..76c91d4 100644 --- a/ghc/compiler/utils/Outputable.lhs +++ b/ghc/compiler/utils/Outputable.lhs @@ -414,10 +414,10 @@ pprWithCommas :: (a -> SDoc) -> [a] -> SDoc pprWithCommas pp xs = fsep (punctuate comma (map pp xs)) interppSP :: Outputable a => [a] -> SDoc -interppSP xs = hsep (map ppr xs) +interppSP xs = sep (map ppr xs) interpp'SP :: Outputable a => [a] -> SDoc -interpp'SP xs = hsep (punctuate comma (map ppr xs)) +interpp'SP xs = sep (punctuate comma (map ppr xs)) pprQuotedList :: Outputable a => [a] -> SDoc -- [x,y,z] ==> `x', `y', `z' -- 1.7.10.4