Skip to content

G
gargantext-ihaskell
Commit 7cf52887 authored by Vaibhav Sagar's avatar Vaibhav Sagar
Browse files
Options

IHaskell.Eval.Lint: ignore "Unused LANGUAGE pragma" hint

parent cc47183e
Show whitespace changes
Inline Side-by-side
Showing with 4 additions and 2 deletions
src/IHaskell/Eval/Lint.hs
View file @ 7cf52887
...@@ -83,7 +83,8 @@ lint code _blocks = do ...@@ -83,7 +83,8 @@ lint code _blocks = do
autoSettings' = do autoSettings' = do
(fixts, classify, hints) <- autoSettings (fixts, classify, hints) <- autoSettings
let hidingIgnore = Classify Ignore "Unnecessary hiding" "" "" let hidingIgnore = Classify Ignore "Unnecessary hiding" "" ""
return (fixts, hidingIgnore:classify, hints) let pragmaIgnore = Classify Ignore "Unused LANGUAGE pragma" "" ""
return (fixts, pragmaIgnore:hidingIgnore:classify, hints)
ignoredIdea idea = ideaSeverity idea == Ignore ignoredIdea idea = ideaSeverity idea == Ignore
#else #else
...@@ -115,7 +116,8 @@ lint _code blocks = do ...@@ -115,7 +116,8 @@ lint _code blocks = do
autoSettings' = do autoSettings' = do
(fixts, classify, hints) <- autoSettings (fixts, classify, hints) <- autoSettings
let hidingIgnore = Classify Ignore "Unnecessary hiding" "" "" let hidingIgnore = Classify Ignore "Unnecessary hiding" "" ""
return (fixts, hidingIgnore:classify, hints) let pragmaIgnore = Classify Ignore "Unused LANGUAGE pragma" "" ""
return (fixts, pragmaIgnore:hidingIgnore:classify, hints)
ignoredIdea idea = ideaSeverity idea == Ignore ignoredIdea idea = ideaSeverity idea == Ignore
createModule :: ParseMode -> Located CodeBlock -> Maybe ExtsModule createModule :: ParseMode -> Located CodeBlock -> Maybe ExtsModule
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment