--HG--
extra : convert_revision : 2c20dd4c3f44ab869278b5f4a4b584a7192cf6af
This commit is contained in:
Bryan O'Sullivan 2007-04-30 23:07:44 +00:00
parent 4475f313c4
commit ee72746a92
1 changed files with 1 additions and 1 deletions

View File

@ -21,7 +21,7 @@ getDanglingLinks = find always (fileType ==? SymbolicLink &&?
renameCppToC :: FilePath -> IO ()
renameCppToC path = find always (extension ==? ".cpp") path >>=
mapM_ (renameWith (replaceExtension ".C"))
mapM_ (renameWith (replaceExtension ".C"))