Fix compilation errors and hlint suggestions.

[dead/harbl.git] / src / Pretty.hs

diff --git a/src/Pretty.hs b/src/Pretty.hs
index 91158065ff717ddc71bc2b909c25ee422de49e7d..14911246c8cd801a7f38b16aaef7a672e4c30bba 100644 (file)
--- a/src/Pretty.hs
+++ b/src/Pretty.hs
@@ -33,7 +33,7 @@ instance (Pretty a) => Pretty [a] where
 --   them too.
 --
 instance (Pretty a, Pretty b) => Pretty (a,b) where
 --   them too.
 --
 instance (Pretty a, Pretty b) => Pretty (a,b) where

-  pretty_show (x,y) = show $ (pretty_show x, pretty_show y)
+  pretty_show (x,y) = show (pretty_show x, pretty_show y)