Fixed lint output bug (fix for issue #622)

c448eb3b · franklx · c383d257 · c448eb3b
Commit c448eb3b authored Jan 21, 2016 by franklx
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

Lint.hs src/IHaskell/Eval/Lint.hs +1 -1

No files found.
--- a/src/IHaskell/Eval/Lint.hs
+++ b/src/IHaskell/Eval/Lint.hs
@@ -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>"