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

build fix

Browse source
This commit is contained in:
Joey Hess 2013-02-15 13:48:25 -04:00
parent 9e69fca5bb
commit 96613e85a9
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Remote/Rsync.hs
View file

@ -221,7 +221,9 @@ rsyncSend o callback k canrename src = withRsyncScratchDir $ \tmp -> do
let dest = tmp </> Prelude.head (keyPaths k) let dest = tmp </> Prelude.head (keyPaths k)
liftIO $ createDirectoryIfMissing True $ parentDir dest liftIO $ createDirectoryIfMissing True $ parentDir dest
ok <- if canrename ok <- if canrename
then liftIO $ renameFile src dest then do
liftIO $ renameFile src dest
return True
else ifM crippledFileSystem else ifM crippledFileSystem
( liftIO $ copyFileExternal src dest ( liftIO $ copyFileExternal src dest
, do , do