import Util ( isSingleton )
import Data.List ( partition )
+
+infixr 3 `consBag`
+infixl 3 `snocBag`
\end{code}
\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}