remove newly created tmp file before linking

This commit is contained in:
Joey Hess 2012-06-15 22:19:12 -04:00
parent d91950ecba
commit 3dac81d345

View file

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