mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove newly created tmp file before linking

Browse source
This commit is contained in:
Joey Hess 2012-06-15 22:19:12 -04:00
parent d91950ecba
commit 3dac81d345
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Command/Add.hs
View file

@ -57,6 +57,7 @@ lockDown file = do
createAnnexDirectory tmp createAnnexDirectory tmp
liftIO $ do liftIO $ do
(tmpfile, _handle) <- openTempFile tmp (takeFileName file) (tmpfile, _handle) <- openTempFile tmp (takeFileName file)
nukeFile tmpfile
createLink file tmpfile createLink file tmpfile
return $ KeySource { keyFilename = file , contentLocation = tmpfile } return $ KeySource { keyFilename = file , contentLocation = tmpfile }