We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 7ef47af commit 089d4e1Copy full SHA for 089d4e1
test/hlint.hs
@@ -29,16 +29,9 @@ main = do
29
]
30
matchFile = and <$> sequence
31
[ extension ==? ".hs"
32
- , let notElem' = liftOp notElem
33
- in filePath `notElem'` filePathExceptions pwd
34
35
files <- find recurseInto matchFile (pwd </> "src") --TODO: Someday fix all hints in tests, etc.
36
ideas <- fmap concat $ forM files $ \f -> do
37
putStr $ "linting file " ++ drop (length pwd + 1) f ++ "... "
38
runHlint f
39
if null ideas then exitSuccess else exitFailure
40
-
41
-filePathExceptions :: FilePath -> [FilePath]
42
-filePathExceptions pwd = map (pwd </>) $
43
- [ "src/Data/AppendMap.hs" -- parse error when hlint runs
44
- ]
0 commit comments