Skip to content

Commit 3354a4f

Browse files
authored
Remove unnecessary HLint ignores now HLint 3.0.4 is out (#545)
1 parent 9adb111 commit 3354a4f

File tree

2 files changed

+0
-6
lines changed

2 files changed

+0
-6
lines changed

src/Development/IDE/Core/Shake.hs

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -392,8 +392,6 @@ withMVar' var unmasked masked = mask $ \restore -> do
392392
pure c
393393

394394
-- | Spawn immediately. If you are already inside a call to shakeRun that will be aborted with an exception.
395-
{- HLINT ignore shakeRun "Redundant bracket" -}
396-
-- HLint seems to get confused by type applications and suggests to remove parentheses.
397395
shakeRun :: IdeState -> [Action a] -> IO (IO [a])
398396
shakeRun IdeState{shakeExtras=ShakeExtras{..}, ..} acts =
399397
withMVar'

test/exe/Main.hs

Lines changed: 0 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1984,8 +1984,6 @@ cradleTests = testGroup "cradle"
19841984
,testGroup "loading" [loadCradleOnlyonce]
19851985
]
19861986

1987-
{- HLINT ignore loadCradleOnlyonce "Redundant bracket" -}
1988-
-- HLint seems to get confused by type applications and suggests to remove parentheses.
19891987
loadCradleOnlyonce :: TestTree
19901988
loadCradleOnlyonce = testGroup "load cradle only once"
19911989
[ testSession' "implicit" implicit
@@ -2353,8 +2351,6 @@ nthLine i r
23532351
| i >= Rope.rows r = error $ "Row number out of bounds: " <> show i <> "/" <> show (Rope.rows r)
23542352
| otherwise = Rope.takeWhile (/= '\n') $ fst $ Rope.splitAtLine 1 $ snd $ Rope.splitAtLine (i - 1) r
23552353

2356-
{- HLINT ignore getWatchedFilesSubscriptionsUntil "Redundant bracket" -}
2357-
-- HLint seems to get confused by type applications and suggests to remove parentheses.
23582354
getWatchedFilesSubscriptionsUntil :: forall end . (FromJSON end, Typeable end) => Session [Maybe Value]
23592355
getWatchedFilesSubscriptionsUntil = do
23602356
msgs <- manyTill (Just <$> message @RegisterCapabilityRequest <|> Nothing <$ anyMessage) (message @end)

0 commit comments

Comments
 (0)