@@ -131,8 +131,7 @@ suggestionsTests =
131
131
doc <- openDoc " IgnoreAnn.hs" " haskell"
132
132
expectNoMoreDiagnostics 3 doc " hlint"
133
133
134
- , knownBrokenForHlintOnRawGhc " [#638] hlint plugin doesn't honour HLINT annotations" $
135
- testCase " hlint diagnostics ignore hints honouring HLINT annotations" $ runHlintSession " " $ do
134
+ , testCase " hlint diagnostics ignore hints honouring HLINT annotations" $ runHlintSession " " $ do
136
135
doc <- openDoc " IgnoreAnnHlint.hs" " haskell"
137
136
expectNoMoreDiagnostics 3 doc " hlint"
138
137
@@ -158,8 +157,7 @@ suggestionsTests =
158
157
liftIO $ not (hasApplyAll thirdLine) @? " Unexpected apply all code action"
159
158
liftIO $ hasApplyAll multiLine @? " Missing apply all code action"
160
159
161
- , knownBrokenForHlintOnRawGhc " [#2042] maybe hlint is ignoring pragmas" $
162
- testCase " hlint should warn about unused extensions" $ runHlintSession " unusedext" $ do
160
+ , testCase " hlint should warn about unused extensions" $ runHlintSession " unusedext" $ do
163
161
doc <- openDoc " UnusedExtension.hs" " haskell"
164
162
diags@ (unusedExt: _) <- waitForDiagnosticsFromSource doc " hlint"
165
163
@@ -174,8 +172,7 @@ suggestionsTests =
174
172
waitForAllProgressDone
175
173
-- hlint will report a parse error if PatternSynonyms is enabled
176
174
expectNoMoreDiagnostics 3 doc " hlint"
177
- , knownBrokenForHlintOnRawGhc " [#2280] maybe hlint is ignoring pragmas" $
178
- testCase " hlint should not warn about redundant irrefutable pattern with LANGUAGE Strict" $ runHlintSession " " $ do
175
+ , testCase " hlint should not warn about redundant irrefutable pattern with LANGUAGE Strict" $ runHlintSession " " $ do
179
176
doc <- openDoc " StrictData.hs" " haskell"
180
177
181
178
waitForAllProgressDone
0 commit comments