@@ -29,16 +29,9 @@ main = do
30 matchFile = and <$> sequence
30 matchFile = and <$> sequence
31 [ extension ==? ".hs"
31 [ extension ==? ".hs"
32− , let notElem' = liftOp notElem
33− in filePath `notElem'` filePathExceptions pwd
35 files <- find recurseInto matchFile (pwd </> "src") --TODO: Someday fix all hints in tests, etc.
33 files <- find recurseInto matchFile (pwd </> "src") --TODO: Someday fix all hints in tests, etc.
36 ideas <- fmap concat $ forM files $ \f -> do
34 ideas <- fmap concat $ forM files $ \f -> do
37 putStr $ "linting file " ++ drop (length pwd + 1) f ++ "... "
35 putStr $ "linting file " ++ drop (length pwd + 1) f ++ "... "
38 runHlint f
36 runHlint f
39 if null ideas then exitSuccess else exitFailure
37 if null ideas then exitSuccess else exitFailure
41−filePathExceptions :: FilePath -> [FilePath]
42−filePathExceptions pwd = map (pwd </>) $
43− [ "src/Data/AppendMap.hs" -- parse error when hlint runs