Update working tree files fully atomically

This avoids commit churn by the assistant when eg,
replacing a file with a symlink.

But, just as importantly, it prevents the working tree being left with a
deleted file if git-annex, or perhaps the whole system, crashes at the
wrong time.

(It also probably avoids confusing displays in file managers.)

1 files changed, 1 insertions, 1 deletions

diff --git a/Command/Add.hs b/Command/Add.hs
index b90db8ba1..c15f3c51f 100644
--- a/Command/Add.hs
+++ b/Command/Add.hs
@@ -175,7 +175,7 @@ undo file key e = do
 link :: FilePath -> Key -> Bool -> Annex String
 link file key hascontent = handle (undo file key) $ do
 	l <- calcGitLink file key
-	makeAnnexLink l file
+	replaceFile file $ makeAnnexLink l
 
 #ifndef __ANDROID__
 	when hascontent $ do