@@ -31,7 +31,7 @@ main = do
31 , let notElem' = liftOp notElem
31 , let notElem' = liftOp notElem
32 in filePath `notElem'` filePathExceptions pwd
32 in filePath `notElem'` filePathExceptions pwd
34− files <- find always matchFile pwd
34+ files <- find recurseInto matchFile pwd
35 ideas <- fmap concat $ forM files $ \f -> do
35 ideas <- fmap concat $ forM files $ \f -> do
36 putStr $ "linting file " ++ drop (length pwd + 1) f ++ "... "
36 putStr $ "linting file " ++ drop (length pwd + 1) f ++ "... "
37 runHlint f
37 runHlint f