src/Pretty.hs


1
2
3
4
5
6
7
8
9
10
11

module Pretty where


class Pretty a where
  prettysPrec :: Int -> a -> ShowS

prettyPrec :: Pretty a => Int -> a -> String
prettyPrec d x = prettysPrec d x ""

pretty :: Pretty a => a -> String
pretty x = prettyPrec 0 x