rhi/filemanip
1
0
Fork 0
Code Issues Pull requests Releases Activity

Merge pull request #6 from asr/master

Browse source 
Fixed documentation and buggy example
This commit is contained in:
Bryan O'Sullivan 2015-01-20 15:20:04 -08:00
commit 200bc23246
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
System/FilePath/Find.hs
View file

@ -29,7 +29,7 @@
-- Because 'FindClause' is a monad, you can use the usual monad -- Because 'FindClause' is a monad, you can use the usual monad
-- machinery to, for example, lift pure functions into it. -- 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\"@. -- directory name contains the word @\"temp\"@.
-- --
-- @ -- @

2
examples/Simple.hs
View file

@ -33,7 +33,7 @@ renameCppToC path = find always (extension ==? ".cpp") path >>=
noRCS :: RecursionPredicate 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] cSources :: FilePath -> IO [FilePath]