Fixed buggy example noRCS

This commit is contained in:
Andrés Sicard-Ramírez 2014-06-12 17:47:35 -05:00
parent ca9a53c615
commit 43c4b2782e
1 changed files with 1 additions and 1 deletions

View File

@ -33,7 +33,7 @@ renameCppToC path = find always (extension ==? ".cpp") path >>=
noRCS :: RecursionPredicate
noRCS = (`elem` ["_darcs","SCCS","CVS",".svn",".hg",".git"]) `liftM` fileName
noRCS = (`notElem` ["_darcs","SCCS","CVS",".svn",".hg",".git"]) `liftM` fileName
cSources :: FilePath -> IO [FilePath]