[commit: ghc] wip/nfs-locking: Use removeFiles instead of removeFilesAfter. (a8ea524)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 00:13:50 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/a8ea524634d870e75c3dc13bc96d174b064849ae/ghc

>---------------------------------------------------------------

commit a8ea524634d870e75c3dc13bc96d174b064849ae
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Fri Jan 22 13:08:36 2016 +0000

    Use removeFiles instead of removeFilesAfter.
    
    See #131.


>---------------------------------------------------------------

a8ea524634d870e75c3dc13bc96d174b064849ae
 src/Rules/Clean.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Rules/Clean.hs b/src/Rules/Clean.hs
index 6ab5309..2b4094a 100644
--- a/src/Rules/Clean.hs
+++ b/src/Rules/Clean.hs
@@ -12,13 +12,13 @@ cleanRules :: Rules ()
 cleanRules = do
     "clean" ~> do
         putBuild $ "| Remove files in " ++ buildRootPath ++ "..."
-        removeFilesAfter buildRootPath ["//*"]
+        liftIO $ removeFiles buildRootPath ["//*"]
         putBuild $ "| Remove files in " ++ programInplacePath ++ "..."
-        removeFilesAfter programInplacePath ["//*"]
+        liftIO $ removeFiles programInplacePath ["//*"]
         putBuild $ "| Remove files in inplace/lib..."
-        removeFilesAfter "inplace/lib" ["//*"]
+        liftIO $ removeFiles "inplace/lib" ["//*"]
         putBuild $ "| Remove files in " ++ derivedConstantsPath ++ "..."
-        removeFilesAfter derivedConstantsPath ["//*"]
+        liftIO $ removeFiles derivedConstantsPath ["//*"]
         forM_ includesDependencies $ \file -> do
             putBuild $ "| Remove " ++ file
             removeFileIfExists file



More information about the ghc-commits mailing list