From 43c4b2782ed4ade284a144047fe2a5af281e8f45 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9s=20Sicard-Ram=C3=ADrez?= <asr@eafit.edu.co>
Date: Thu, 12 Jun 2014 17:47:35 -0500
Subject: [PATCH] Fixed buggy example noRCS

---
 examples/Simple.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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]