We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent cf385c6 commit b415758Copy full SHA for b415758
test/hlint.hs
@@ -31,7 +31,7 @@ main = do
31
, let notElem' = liftOp notElem
32
in filePath `notElem'` filePathExceptions pwd
33
]
34
- files <- find recurseInto matchFile pwd
+ files <- find recurseInto matchFile (pwd </> "src") --TODO: Someday fix all hints in tests, etc.
35
ideas <- fmap concat $ forM files $ \f -> do
36
putStr $ "linting file " ++ drop (length pwd + 1) f ++ "... "
37
runHlint f
0 commit comments