Fixed lint output bug

This commit is contained in:
root 2016-01-21 16:02:58 +01:00
parent c383d2572b
commit 5264c05e08

View File

@ -187,7 +187,7 @@ htmlSuggestions = concatMap toHtml
_ -> "warning"
style :: String -> String -> String
style = printf "<div class=\"suggestion-${cls}\">%s</div>"
style = printf "<div class=\"suggestion-%s\">%s</div>"
named :: String -> String
named = printf "<div class=\"suggestion-name\" style=\"clear:both;\">%s</div>"