hard links on windows
* annex.thin and annex.hardlink are now supported on Windows. * unannex --fast now makes hard links on Windows.
This commit is contained in:
parent
251405eca2
commit
cf06dac2b8
8 changed files with 29 additions and 26 deletions
|
@ -695,7 +695,6 @@ mkCopier :: Bool -> [CommandParam] -> Annex Copier
|
|||
mkCopier remotewanthardlink rsyncparams = do
|
||||
let copier = \src dest p check -> unVerified $
|
||||
rsyncOrCopyFile rsyncparams src dest p <&&> check
|
||||
#ifndef mingw32_HOST_OS
|
||||
localwanthardlink <- wantHardLink
|
||||
let linker = \src dest -> createLink src dest >> return True
|
||||
ifM (pure (remotewanthardlink || localwanthardlink) <&&> not <$> isDirect)
|
||||
|
@ -706,6 +705,3 @@ mkCopier remotewanthardlink rsyncparams = do
|
|||
)
|
||||
, return copier
|
||||
)
|
||||
#else
|
||||
return $ if remotewanthardlink then copier else copier
|
||||
#endif
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue