summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Remote/Git.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs
index c90384ca4..5b7dec309 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -694,7 +694,7 @@ mkCopier remotewanthardlink rsyncparams = do
#ifndef mingw32_HOST_OS
localwanthardlink <- wantHardLink
let linker = \src dest -> createLink src dest >> return True
- ifM (pure (remotewanthardlink || localwanthardlink) <&&> not <$> isDirect)
+ ifM (pure (remotewanthardlink || localwanthardlink))
( return $ \src dest p check ->
ifM (liftIO (catchBoolIO (linker src dest)))
( return (True, Verified)