From 1722c23f56c45d8af36996355816e49fba110959 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 21 Sep 2012 20:24:08 -0400 Subject: fix logic error introduced yesterday --- Remote/Git.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- cgit v1.2.3