diff -ru haskell-xhtml-3000.0.2.orig/Text/XHtml/Frameset.hs haskell-xhtml-3000.0.2/Text/XHtml/Frameset.hs
--- haskell-xhtml-3000.0.2.orig/Text/XHtml/Frameset.hs	2007-05-09 08:30:13.000000000 -0700
+++ haskell-xhtml-3000.0.2/Text/XHtml/Frameset.hs	2007-11-27 16:23:15.000000000 -0800
@@ -7,7 +7,7 @@
      -- * Primitives and basic combinators
      (<<), concatHtml, (+++), 
      noHtml, isNoHtml, tag, itag,
-     emptyAttr, intAttr, strAttr, htmlAttr,
+     emptyAttr, intAttr, strAttr, htmlAttr, bareAttr,
      primHtml, 
      -- * Rendering
      showHtml, renderHtml, prettyHtml, 
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
@@ -155,6 +155,9 @@
 htmlAttr :: String -> Html -> HtmlAttr
 htmlAttr s t = HtmlAttr s (show t)
 
+bareAttr :: String -> String -> HtmlAttr
+bareAttr s t = HtmlAttr s t
+
 
 {-
 foldHtml :: (String -> [HtmlAttr] -> [a] -> a) 
diff -ru haskell-xhtml-3000.0.2.orig/Text/XHtml/Transitional.hs haskell-xhtml-3000.0.2/Text/XHtml/Transitional.hs
--- haskell-xhtml-3000.0.2.orig/Text/XHtml/Transitional.hs	2007-05-09 08:30:13.000000000 -0700
+++ haskell-xhtml-3000.0.2/Text/XHtml/Transitional.hs	2007-11-27 16:23:45.000000000 -0800
@@ -7,7 +7,7 @@
      -- * Primitives and basic combinators
      (<<), concatHtml, (+++), 
      noHtml, isNoHtml, tag, itag,
-     emptyAttr, intAttr, strAttr, htmlAttr,
+     emptyAttr, intAttr, strAttr, htmlAttr, bareAttr,
      primHtml, 
      -- * Rendering
      showHtml, renderHtml, prettyHtml,