diff options
Diffstat (limited to 'src/HSVIS/Pretty.hs')
| -rw-r--r-- | src/HSVIS/Pretty.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/HSVIS/Pretty.hs b/src/HSVIS/Pretty.hs index cc8cb2a..c25fe08 100644 --- a/src/HSVIS/Pretty.hs +++ b/src/HSVIS/Pretty.hs @@ -9,6 +9,10 @@ class Pretty a where instance Pretty Void where prettysPrec _ = absurd +instance (Pretty a, Pretty b) => Pretty (a, b) where + prettysPrec _ (x, y) = + showString "(" . prettysPrec 0 x . showString ", " . prettysPrec 1 y . showString ")" + prettyPrec :: Pretty a => Int -> a -> String prettyPrec d x = prettysPrec d x "" |