hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix HLint ignore

Browse Source 
Closes #800
This commit is contained in:
Nikolay Yakimov 2016-07-11 17:49:18 +03:00 committed by Daniel Gröber
parent 2932e446e2
commit 44efb6e895
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Language/Haskell/GhcMod/Lint.hs
View File

@ -25,7 +25,7 @@ lint opt file = ghandle handler $
liftIO $ hSetEncoding hSrc (encoding flags) liftIO $ hSetEncoding hSrc (encoding flags)
res <- liftIO $ parseModuleEx flags file =<< Just `fmap` hGetContents hSrc res <- liftIO $ parseModuleEx flags file =<< Just `fmap` hGetContents hSrc
case res of 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} -> Left ParseError{parseErrorLocation=loc, parseErrorMessage=err} ->
return $ showSrcLoc loc ++ ":Error:" ++ err ++ "\n" return $ showSrcLoc loc ++ ":Error:" ++ err ++ "\n"
where where