Fixed buggy example noRCS

9 years ago · 43c4b2782e
1 changed files with 1 additions and 1 deletions
--- a/examples/Simple.hs
+++ b/examples/Simple.hs
@ -33,7 +33,7 @@ renameCppToC path = find always (extension ==? ".cpp") path >>=
				@@ -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]