[commit: ghc] wip/nfs-locking: Remove old library files before calling Ar. (5aa3add)

[git at git.haskell.org]

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

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

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

commit 5aa3addc4ed59f1984e040415d707f4067f82007
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Tue Jan 13 02:45:49 2015 +0000

    Remove old library files before calling Ar.


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

5aa3addc4ed59f1984e040415d707f4067f82007
 src/Package/Library.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Package/Library.hs b/src/Package/Library.hs
index 9598b1a..0c2e1f8 100644
--- a/src/Package/Library.hs
+++ b/src/Package/Library.hs
@@ -22,4 +22,5 @@ buildPackageLibrary (Package _ path _) (stage, dist, _) =
         depObjs <- pkgDepObjects path dist way
         need depObjs
         libObjs <- pkgLibObjects path dist stage way
+        liftIO $ removeFiles "" [out]
         terseRun Ar $ arArgs <+> out <+> libObjs