Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Improve test coverage.

  • Loading branch information...
commit 7b1a5fe43644952b8f28d52cc872a4ad05f9ffb4 1 parent af50097
@mightybyte mightybyte authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  test/suite/Text/XmlHtml/Tests.hs
View
2  test/suite/Text/XmlHtml/Tests.hs
@@ -947,7 +947,7 @@ blazeTestMulti = renderHtml (selectCustom `mappend` html) == result
]
blazeTestEmpty :: Bool
-blazeTestEmpty = renderHtml mempty == HtmlDocument UTF8 Nothing []
+blazeTestEmpty = renderHtmlNodes mempty == []
selectCustom :: Html
selectCustom = H.select ! H.customAttribute "dojoType" "select" $ (mappend "foo " "bar")
Please sign in to comment.
Something went wrong with that request. Please try again.