Browse Source

Fixed buggy example noRCS

main
Andrés Sicard-Ramírez 8 years ago
parent
commit
43c4b2782e
  1. 2
      examples/Simple.hs

2
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]

Loading…
Cancel
Save