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