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

add: Avoid a failure mode that resulted in the file seemingly being deleted (content put in the annex but no symlink present).

Browse source
This commit is contained in:
Joey Hess 2011-07-07 19:29:36 -04:00
parent ff531b9677
commit 67dcc1f171
3 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Add.hs
View file

@ -51,11 +51,11 @@ perform (file, backend) = do
cleanup :: FilePath -> Key -> CommandCleanup
cleanup file key = do
logStatus key InfoPresent
link <- calcGitLink file key
liftIO $ createSymbolicLink link file
logStatus key InfoPresent
-- touch the symlink to have the same mtime as the file it points to
s <- liftIO $ getFileStatus file
let mtime = modificationTime s