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

imcomplete attempt at supporting lutimes(3) for BSD compat

Browse source
This commit is contained in:
Joey Hess 2011-03-20 14:04:39 -04:00
parent 140a351fc5
commit 6634b6a6b8
2 changed files with 58 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Add.hs
View file

@ -58,7 +58,7 @@ cleanup file key = do
-- touch the symlink to have the same mtime as the file it points to
s <- liftIO $ getFileStatus file
let mtime = modificationTime s
liftIO $ touch file (TimeSpec mtime 0) False
liftIO $ touch file (TimeSpec mtime) False
Annex.queue "add" [Param "--"] file
return True