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

bigfix: stat parent dirs

Browse source
This commit is contained in:
Joey Hess 2011-06-13 21:46:28 -04:00
parent c1acad8248
commit d0482d4154
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/Git.hs
View file

@ -169,8 +169,8 @@ rsyncHelper p = do
- filesystem. Then cp could be faster. -} - filesystem. Then cp could be faster. -}
rsyncOrCopyFile :: Git.Repo -> FilePath -> FilePath -> Annex Bool rsyncOrCopyFile :: Git.Repo -> FilePath -> FilePath -> Annex Bool
rsyncOrCopyFile r src dest = do rsyncOrCopyFile r src dest = do
ss <- liftIO $ getFileStatus src ss <- liftIO $ getFileStatus $ parentDir src
ds <- liftIO $ getFileStatus dest ds <- liftIO $ getFileStatus $ parentDir dest
if deviceID ss == deviceID ds if deviceID ss == deviceID ds
then liftIO $ copyFile src dest then liftIO $ copyFile src dest
else do else do