@@ -166,6 +166,7 @@ afterAttrName tag attrs name = do
166 id $ (char '/' >> selfClosingStartTag tag attrs)
166 id $ (char '/' >> selfClosingStartTag tag attrs)
167 <|> (char '=' >> beforeAttrValue tag attrs name)
167 <|> (char '=' >> beforeAttrValue tag attrs name)
168 <|> (char '>' >> return (TagOpen tag (Attr name T.empty : attrs)))
168 <|> (char '>' >> return (TagOpen tag (Attr name T.empty : attrs)))
169+ <|> (endOfInput >> return (ContentText ""))
169 <|> attrName tag (Attr name T.empty : attrs) -- not exactly sure this is right
170 <|> attrName tag (Attr name T.empty : attrs) -- not exactly sure this is right
171-- | /§8.2.4.35/: Before attribute value state
172-- | /§8.2.4.35/: Before attribute value state