module Pretty where

import qualified Data.Text.Lazy.Builder as B
import Data.Text.Lazy.Builder (Builder)
import Data.Text.Lazy (Text)


class Pretty a where
    pretty' :: a -> Builder

    pretty :: a -> Text
    pretty = B.toLazyText . pretty'