Fix HLint ignore

Closes #800
2016-07-11 17:49:18 +03:00 · 2016-07-11 17:49:18 +03:00 · 44efb6e895
commit 44efb6e895
parent 2932e446e2
1 changed files with 1 additions and 1 deletions
--- a/Language/Haskell/GhcMod/Lint.hs
+++ b/Language/Haskell/GhcMod/Lint.hs
@ -25,7 +25,7 @@ lint opt file = ghandle handler $
    liftIO $ hSetEncoding hSrc (encoding flags)
    res <- liftIO $ parseModuleEx flags file =<< Just `fmap` hGetContents hSrc
    case res of
-      Right m -> pack . map show $ applyHints classify hint [m]
+      Right m -> pack . map show $ filter ((/=Ignore) . ideaSeverity) $ applyHints classify hint [m]
      Left ParseError{parseErrorLocation=loc, parseErrorMessage=err} ->
        return $ showSrcLoc loc ++ ":Error:" ++ err ++ "\n"
  where