Add Pretty instances for Lists and pairs.
authorMichael Orlitzky <michael@orlitzky.com>
Thu, 9 Jul 2015 02:15:07 +0000 (22:15 -0400)
committerMichael Orlitzky <michael@orlitzky.com>
Thu, 9 Jul 2015 02:15:07 +0000 (22:15 -0400)
src/Pretty.hs

index 84f9406bcd6187046442c9acddd1723f598f87d3..91158065ff717ddc71bc2b909c25ee422de49e7d 100644 (file)
@@ -22,6 +22,21 @@ class Pretty a where
   pretty_print = putStrLn . pretty_show
 
 
+-- | If we can pretty print something, we can pretty-print a list of
+--   them too.
+--
+instance (Pretty a) => Pretty [a] where
+  pretty_show l = show $ map pretty_show l
+
+
+-- | If we can pretty print something, we can pretty-print a pair of
+--   them too.
+--
+instance (Pretty a, Pretty b) => Pretty (a,b) where
+  pretty_show (x,y) = show $ (pretty_show x, pretty_show y)
+
+
+
 -- | Define a 'Pretty' instance for the result of 'parse'. This lets
 --   us pretty-print the result of a parse attempt without worrying
 --   about whether or not it failed. If the parse failed, you get the