module HSVIS.Pretty where

import Data.Void


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

instance Pretty Void where
  prettysPrec _ = absurd

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

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