summaryrefslogtreecommitdiff
path: root/Remote/Git.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-09-21 20:24:08 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-09-21 20:24:08 -0400
commit1722c23f56c45d8af36996355816e49fba110959 (patch)
tree0d610fd396d24c40f02425a09f4b96367efa562b /Remote/Git.hs
parenta8e1b3ad42124222fda965d33360c8afdb064d10 (diff)
fix logic error introduced yesterday
Diffstat (limited to 'Remote/Git.hs')
-rw-r--r--Remote/Git.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs
index c10347f98..330fb3a13 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -299,7 +299,7 @@ rsyncHelper callback params = do
- filesystem. Then cp could be faster. -}
rsyncOrCopyFile :: [CommandParam] -> FilePath -> FilePath -> MeterUpdate -> Annex Bool
rsyncOrCopyFile rsyncparams src dest p =
- ifM (sameDeviceIds src dest) (dorsync, docopy)
+ ifM (sameDeviceIds src dest) (docopy, dorsync)
where
sameDeviceIds a b = (==) <$> (getDeviceId a) <*> (getDeviceId b)
getDeviceId f = deviceID <$> liftIO (getFileStatus $ parentDir f)