hunk ./htmlattr.diff 47 -@@ -152,6 +152,12 @@ - strAttr :: String -> String -> HtmlAttr - strAttr s t = HtmlAttr s (stringToHtmlString t) +@@ -155,6 +155,9 @@ + htmlAttr :: String -> Html -> HtmlAttr + htmlAttr s t = HtmlAttr s (show t) hunk ./htmlattr.diff 51 -+htmlAttr :: String -> Html -> HtmlAttr -+htmlAttr s t = HtmlAttr s (showHtmlFragment t) -+ hunk ./htmlattr.diff 54 + hunk ./htmlattr.diff 57 - -> (String -> a)