From e9b48a2604b30b505dadefc22e161aff2825ea2e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9s=20Sicard-Ram=C3=ADrez?= Date: Thu, 12 Jun 2014 14:48:38 -0500 Subject: [PATCH 1/2] Fixed documentation in Find.hs --- System/FilePath/Find.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/System/FilePath/Find.hs b/System/FilePath/Find.hs index 2af3bd6..73a93b3 100644 --- a/System/FilePath/Find.hs +++ b/System/FilePath/Find.hs @@ -29,7 +29,7 @@ -- Because 'FindClause' is a monad, you can use the usual monad -- machinery to, for example, lift pure functions into it. -- --- Here's a clause that will return 'False' for any file whose +-- Here's a clause that will return 'True' for any file whose -- directory name contains the word @\"temp\"@. -- -- @ From cefca01267a3ca82d61f1e7ea95aa202fda0bbd4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9s=20Sicard-Ram=C3=ADrez?= Date: Thu, 12 Jun 2014 17:47:35 -0500 Subject: [PATCH 2/2] 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]