{-# LANGUAGE FlexibleInstances #-}

module PrettyPrint where

class PrettyPrint a where
    prettyPrint :: a -> String
    -- a = a

instance PrettyPrint String where prettyPrint = id
instance PrettyPrint Double where prettyPrint = show
instance PrettyPrint Int where prettyPrint = show