From 312d0a8b1d1f89114721434186360f8b15fc5f9b Mon Sep 17 00:00:00 2001 From: Bryan O'Sullivan Date: Mon, 30 Apr 2007 23:07:44 +0000 Subject: [PATCH] Tidy. --- examples/Simple.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/examples/Simple.hs b/examples/Simple.hs index c115693..0370ef7 100644 --- a/examples/Simple.hs +++ b/examples/Simple.hs @@ -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"))