projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cda2ef4
)
[project @ 1997-05-18 04:59:19 by sof]
author
sof
<unknown>
Sun, 18 May 1997 04:59:19 +0000
(
04:59
+0000)
committer
sof
<unknown>
Sun, 18 May 1997 04:59:19 +0000
(
04:59
+0000)
Updated for new PP
ghc/compiler/utils/Bag.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/utils/Bag.lhs
b/ghc/compiler/utils/Bag.lhs
index
a22ccde
..
430af93
100644
(file)
--- a/
ghc/compiler/utils/Bag.lhs
+++ b/
ghc/compiler/utils/Bag.lhs
@@
-25,7
+25,7
@@
module Bag (
IMP_Ubiq(){-uitous-}
IMPORT_1_3(List(partition))
IMP_Ubiq(){-uitous-}
IMPORT_1_3(List(partition))
-import Outputable ( interpp'SP )
+import Outputable --( interpp'SP )
import Pretty
#else
import List(partition)
import Pretty
#else
import List(partition)
@@
-161,11
+161,11
@@
bagToList b = foldrBag (:) [] b
#ifdef COMPILING_GHC
instance (Outputable a) => Outputable (Bag a) where
#ifdef COMPILING_GHC
instance (Outputable a) => Outputable (Bag a) where
- ppr sty EmptyBag = ppPStr SLIT("emptyBag")
+ ppr sty EmptyBag = ptext SLIT("emptyBag")
ppr sty (UnitBag a) = ppr sty a
ppr sty (UnitBag a) = ppr sty a
- ppr sty (TwoBags b1 b2) = ppCat [ppr sty b1, pp'SP, ppr sty b2]
+ ppr sty (TwoBags b1 b2) = hsep [ppr sty b1 <> comma, ppr sty b2]
ppr sty (ListBag as) = interpp'SP sty as
ppr sty (ListBag as) = interpp'SP sty as
- ppr sty (ListOfBags bs) = ppCat [ppLbrack, interpp'SP sty bs, ppRbrack]
+ ppr sty (ListOfBags bs) = brackets (interpp'SP sty bs)
#endif {- COMPILING_GHC -}
\end{code}
#endif {- COMPILING_GHC -}
\end{code}