From 44efb6e8952997705e5721f1ba92ac644bad3ab9 Mon Sep 17 00:00:00 2001
From: Nikolay Yakimov <root@livid.pp.ru>
Date: Mon, 11 Jul 2016 17:49:18 +0300
Subject: [PATCH] Fix HLint ignore

Closes #800
---
 Language/Haskell/GhcMod/Lint.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Language/Haskell/GhcMod/Lint.hs b/Language/Haskell/GhcMod/Lint.hs
index a506565..0ffe713 100644
--- 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