From: simonpj <unknown>
Date: Thu, 11 Mar 2004 14:29:29 +0000 (+0000)
Subject: [project @ 2004-03-11 14:29:29 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~8
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9182cbf40368f3a01829aa5b21b57cfaa7906d8a;p=ghc-hetmet.git

[project @ 2004-03-11 14:29:29 by simonpj]
Better layout in interppSP
---

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'