-- | Pretty print an AST.
pretty :: Pretty a => Config -> a -> BS.ByteString
pretty cfg ast =
  case runPP cfg (pp ast) of
    (b, _) -> toLazyByteString b

-- | Run a pretty printer.
pretty :: Pretty a => Config -> a -> BS.ByteString
pretty cfg ast =
  case runPP cfg (pp ast) of
    (b, _) -> toLazyByteString b

-- | Run a pretty printer.
pretty cfg ast =
  case runPP cfg (pp ast) of
    (b, _) -> toLazyByteString b

-- | Run a pretty printer.