[commit: ghc] wip/nfs-locking: #156, remove the directory if it already exists (8f995f6)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 00:09:07 UTC 2017


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

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

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

commit 8f995f6b65c27d18f2f9606ba95ac25c2974ae23
Author: Neil Mitchell <ndmitchell at gmail.com>
Date:   Tue Jan 12 22:43:24 2016 +0000

    #156, remove the directory if it already exists


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

8f995f6b65c27d18f2f9606ba95ac25c2974ae23
 src/Rules/Libffi.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Rules/Libffi.hs b/src/Rules/Libffi.hs
index 8bcfdae..dbf50dc 100644
--- a/src/Rules/Libffi.hs
+++ b/src/Rules/Libffi.hs
@@ -82,6 +82,7 @@ libffiRules = do
         need tarballs
         let libname = dropExtension . dropExtension . takeFileName $ head tarballs
 
+        removeDirectory (buildRootPath -/- libname)
         actionFinally (do
             build $ fullTarget libffiTarget Tar tarballs [buildRootPath]
             moveDirectory (buildRootPath -/- libname) libffiBuild) $



More information about the ghc-commits mailing list