diff --git a/Text/HTML/TagSoup/Fast.hs b/Text/HTML/TagSoup/Fast.hs
--- a/Text/HTML/TagSoup/Fast.hs
+++ b/Text/HTML/TagSoup/Fast.hs
@@ -142,7 +142,7 @@
| r p == ">" = tdat tag (pp p) (mm left)
| r p == "?" || r p == "/" =
selfClosingStartTag tag (pp p) (mm left)
- | r p == "'" || r p == "\"" = attValue (r p) tag "" (pp p) (mm left) 0
+-- | r p == "'" || r p == "\"" = attValue (r p) tag "" (pp p) (mm left) 0
| otherwise = tagName o (pp p) (mm left) (pp n)
where tag | o = TagOpen (toLowerBS $ mkS left n) []
| otherwise = TagClose (toLowerBS $ mkS left n)
@@ -157,7 +157,7 @@
| space (r p) = beforeAttName t (pp p) (mm l)
| r p == ">" = tdat t (pp p) (mm l)
| r p == "?" || r p == "/" = selfClosingStartTag t (pp p) (mm l)
- | r p == "'" || r p == "\"" = attValue (r p) t "" (pp p) (mm l) 0
+-- | r p == "'" || r p == "\"" = attValue (r p) t "" (pp p) (mm l) 0
| otherwise = attName t (pp p) (mm l) 1
attName t p 0 n = [t]
attName !t !p !l !n
@@ -339,10 +339,8 @@
renderTags' escape concat = go []
where go acc [] = concat $ reverse acc
- go acc (TagOpen t as : TagClose tc : ts)
- | t == tc && t /= "iframe" =
- -- browsers do not like
- go ("/>" : renderAtts (reverse as) (t : "<" : acc)) ts
+ go acc (TagOpen "br" _ : TagClose "br" : ts) =
+ go ("
" : acc) ts
go acc (TagOpen t as : ts) =
go (">" : renderAtts (reverse as) (t : "<" : acc)) ts
go acc (TagClose t : ts) =
diff --git a/fast-tagsoup.cabal b/fast-tagsoup.cabal
--- a/fast-tagsoup.cabal
+++ b/fast-tagsoup.cabal
@@ -1,6 +1,6 @@
cabal-version: >= 1.6
name: fast-tagsoup
-version: 1.0.1
+version: 1.0.2
copyright: Vladimir Shabanov 2011-2012
author: Vladimir Shabanov
maintainer: Vladimir Shabanov