[commit: ghc] wip/nfs-locking: In the removeDirectory operation, use removeIfExists (2dd57cc)

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


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

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

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

commit 2dd57cc06f172145f668a89d29756de6dccceb0f
Author: Neil Mitchell <ndmitchell at gmail.com>
Date:   Tue Jan 12 22:43:01 2016 +0000

    In the removeDirectory operation, use removeIfExists


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

2dd57cc06f172145f668a89d29756de6dccceb0f
 src/Rules/Actions.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Rules/Actions.hs b/src/Rules/Actions.hs
index a968160..55f81dd 100644
--- a/src/Rules/Actions.hs
+++ b/src/Rules/Actions.hs
@@ -77,7 +77,7 @@ createDirectory dir = do
 removeDirectory :: FilePath -> Action ()
 removeDirectory dir = do
     putBuild $ "| Remove directory " ++ dir
-    liftIO $ IO.removeDirectoryRecursive dir
+    removeDirectoryIfExists dir
 
 -- Note, the source directory is untracked
 moveDirectory :: FilePath -> FilePath -> Action ()



More information about the ghc-commits mailing list