@@ -29,16 +29,9 @@ main = do
2929 ]
3030 matchFile = and <$> sequence
3131 [ extension ==? ".hs"
32− , let notElem' = liftOp notElem
33− in filePath `notElem'` filePathExceptions pwd
3432 ]
3533 files <- find recurseInto matchFile (pwd </> "src") --TODO: Someday fix all hints in tests, etc.
3634 ideas <- fmap concat $ forM files $ \f -> do
3735 putStr $ "linting file " ++ drop (length pwd + 1) f ++ "... "
3836 runHlint f
3937 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− ]