Permalink
Browse files

Merge pull request #36 from EdwardBetts/spelling

correct spelling mistake
  • Loading branch information...
2 parents f6fa7d5 + 18d8e1b commit 1c32136261f32b77010bef4bc0006dbb616d6d35 @luqui committed Sep 11, 2017
Showing with 1 addition and 1 deletion.
  1. +1 −1 Main.hs
View
@@ -377,7 +377,7 @@ recursiveFiles :: [FilePath] -> [String] -> IO [FilePath]
recursiveFiles files pats = concat <$> mapM findFiles files
where
findFiles = find excludes (extension ==? ".hs" &&? excludes)
- pats' = map compile pats -- filemanip's globbing doesnt work properly
+ pats' = map compile pats -- filemanip's globbing doesn't work properly
excludes = foldr (\pat b -> b ||? globMatch pat filePath) (return False) pats' ==? False
globMatch pat s = liftM (match pat) s

0 comments on commit 1c32136

Please sign in to comment.