diff -ru haskell-xhtml-3000.0.2.orig/Text/XHtml/Internals.hs haskell-xhtml-3000.0.2/Text/XHtml/Internals.hs
--- haskell-xhtml-3000.0.2.orig/Text/XHtml/Internals.hs	2007-05-09 08:30:13.000000000 -0700
+++ haskell-xhtml-3000.0.2/Text/XHtml/Internals.hs	2007-11-27 16:23:27.000000000 -0800
@@ -39,18 +39,20 @@
               markupContent  :: Html
               }
         -- ^ tag with internal markup
+      deriving (Read, Show, Eq)
 
 -- | Attributes with name and value.
-data HtmlAttr = HtmlAttr String String
+data HtmlAttr = HtmlAttr String String deriving (Read, Show, Eq)
 
 
-newtype Html = Html { getHtmlElements :: [HtmlElement] }
+newtype Html = Html { getHtmlElements :: [HtmlElement] } deriving (Read, Show, Eq)
 
 
 -- 
 -- * Classes
 --
 
+{-
 instance Show Html where
       showsPrec _ html = showString (renderHtmlFragment html)
       showList htmls   = foldr (.) id (map shows htmls)
@@ -60,6 +62,7 @@
               showString str .
               showString "=" .
               shows val
+-}
 
 instance Monoid Html where
     mempty = noHtml