blob: 45ca6ac47a4553ad0d127dfff817e3a07d1fdcec (
plain)
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
|