PrettyPrint.hs


1
2
3
4
5
6
7
8
9
10
11

{-# 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