diff --git a/examples/Simple.hs b/examples/Simple.hs
index b49fc9c..850571f 100644
--- a/examples/Simple.hs
+++ b/examples/Simple.hs
@@ -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]