diff options
| author | simonpj@microsoft.com <unknown> | 2009-10-23 16:16:31 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-10-23 16:16:31 +0000 |
| commit | 9aad47f1162666431deee99884c523b1ff69cf98 (patch) | |
| tree | 5f573c26dca042d26728f6391e4c0810b1b601ef /compiler | |
| parent | c43c981705ec33da92a9ce91eb90f2ecf00be9fe (diff) | |
| download | haskell-9aad47f1162666431deee99884c523b1ff69cf98.tar.gz | |
Use braces rather than angle-brackets in debug-printing for Bags
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/utils/Bag.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/Bag.lhs b/compiler/utils/Bag.lhs index e53d23dc0c..b7e92a332c 100644 --- a/compiler/utils/Bag.lhs +++ b/compiler/utils/Bag.lhs @@ -178,5 +178,5 @@ bagToList b = foldrBag (:) [] b \begin{code} instance (Outputable a) => Outputable (Bag a) where - ppr bag = char '<' <> pprWithCommas ppr (bagToList bag) <> char '>' + ppr bag = braces (pprWithCommas ppr (bagToList bag)) \end{code} |