----------------------------------------------------------------------
-- Utils
----------------------------------------------------------------------

ppTuple :: (PP.Pretty a, PP.Pretty b) => (a,b) -> PP.Doc
ppTuple (a,b) = PP.tupled [ PP.pretty a, PP.pretty b]
ppTuple :: (PP.Pretty a, PP.Pretty b) => (a,b) -> PP.Doc
ppTuple (a,b) = PP.tupled [ PP.pretty a, PP.pretty b]
ppTuple (a,b) = PP.tupled [ PP.pretty a, PP.pretty b]