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
@@ -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,