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

fix logic error introduced yesterday

Browse source
This commit is contained in:
Joey Hess 2012-09-21 20:24:08 -04:00
parent a8e1b3ad42
commit 1722c23f56
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Remote/Git.hs
View file

@ -299,7 +299,7 @@ rsyncHelper callback params = do
- filesystem. Then cp could be faster. -} - filesystem. Then cp could be faster. -}
rsyncOrCopyFile :: [CommandParam] -> FilePath -> FilePath -> MeterUpdate -> Annex Bool rsyncOrCopyFile :: [CommandParam] -> FilePath -> FilePath -> MeterUpdate -> Annex Bool
rsyncOrCopyFile rsyncparams src dest p = rsyncOrCopyFile rsyncparams src dest p =
ifM (sameDeviceIds src dest) (dorsync, docopy) ifM (sameDeviceIds src dest) (docopy, dorsync)
where where
sameDeviceIds a b = (==) <$> (getDeviceId a) <*> (getDeviceId b) sameDeviceIds a b = (==) <$> (getDeviceId a) <*> (getDeviceId b)
getDeviceId f = deviceID <$> liftIO (getFileStatus $ parentDir f) getDeviceId f = deviceID <$> liftIO (getFileStatus $ parentDir f)