Filter out ignored ideas

src/IHaskell/Eval/Lint.hs

@@ -70,7 +70,7 @@ lint blocks = do
   -- create 'suggestions'
   let modules = mapMaybe (createModule mode) blocks
       ideas = applyHints classify hint (map (\m -> (m, [])) modules)
-      suggestions = mapMaybe showIdea ideas
+      suggestions = mapMaybe showIdea $ filter (not . ignoredIdea) ideas
 
   return $ Display $
     if null suggestions
@@ -81,6 +81,7 @@ lint blocks = do
       (fixities, classify, hints) <- autoSettings
       let hidingIgnore = Classify Ignore "Unnecessary hiding" "" ""
       return (fixities, hidingIgnore:classify, hints)
+    ignoredIdea idea = ideaSeverity idea == Ignore
 
 showIdea :: Idea -> Maybe LintSuggestion
 showIdea idea =