Apply hlint suggestion 😄

jneira · jneira · commit 08a084dfe076 · 2020-12-04T19:55:22.000+01:00
diff --git a/test/functional/FunctionalCodeAction.hs b/test/functional/FunctionalCodeAction.hs
@@ -110,7 +110,7 @@ hlintTests = testGroup "hlint suggestions" [
 
         diags' <- waitForDiagnostics
 
-        liftIO $ (not $ Just "hlint" `elem` map (^. L.source) diags') @? "There are no hlint diagnostics"
+        liftIO $ Just "hlint" `notElem` map (^. L.source) diags' @? "There are no hlint diagnostics"
     ]
 
 renameTests :: TestTree

Original file line number	Diff line number	Diff line change
`@@ -110,7 +110,7 @@ hlintTests = testGroup "hlint suggestions" [`
`110`	`110`
`111`	`111`	`diags' <- waitForDiagnostics`
`112`	`112`
`113`		- liftIO $ (not $ Just "hlint" `elem` map (^. L.source) diags') @? "There are no hlint diagnostics"
	`113`	+ liftIO $ Just "hlint" `notElem` map (^. L.source) diags' @? "There are no hlint diagnostics"
`114`	`114`	`]`
`115`	`115`
`116`	`116`	`renameTests :: TestTree`