diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-04-08 15:25:32 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-04-08 15:25:32 -0400 |
| commit | 9e65dd757f9fe8e031ea936ce4e2a8cb998f7f83 (patch) | |
| tree | 7b6e0c509838db15e079f57f176f5902e65508c5 /Remote/Git.hs | |
| parent | fdfd56c647d685ad5618917341db0b7c97e1b63a (diff) | |
hard links on windows
* annex.thin and annex.hardlink are now supported on Windows.
* unannex --fast now makes hard links on Windows.
Diffstat (limited to 'Remote/Git.hs')
| -rw-r--r-- | Remote/Git.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs index 9f99dccab..256428137 100644 --- a/Remote/Git.hs +++ b/Remote/Git.hs @@ -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 |