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

fix windows build

Browse source
This commit is contained in:
Joey Hess 2019-02-18 17:38:21 -04:00
parent 9f6b7d6258
commit 4c3178aadf
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Remote/Git.hs
View file

@ -718,13 +718,13 @@ rsyncOrCopyFile rsyncparams src dest p =
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)
docopy = liftIO $ watchFileSize dest p $
copyFileExternal CopyTimeStamps src dest
#endif
dorsync = do dorsync = do
oh <- mkOutputHandler oh <- mkOutputHandler
Ssh.rsyncHelper oh (Just p) $ Ssh.rsyncHelper oh (Just p) $
rsyncparams ++ [File src, File dest] rsyncparams ++ [File src, File dest]
#endif
docopy = liftIO $ watchFileSize dest p $
copyFileExternal CopyTimeStamps src dest
commitOnCleanup :: Git.Repo -> Remote -> Annex a -> Annex a commitOnCleanup :: Git.Repo -> Remote -> Annex a -> Annex a
commitOnCleanup repo r a = go `after` a commitOnCleanup repo r a = go `after` a