summaryrefslogtreecommitdiff
path: root/Remote
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-01-13 14:13:37 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-01-13 14:13:37 -0400
commit13b601854be937d9cf242850e73f6d094487511b (patch)
treeafdb13cb838f14abec6807e67c2110cd1a04070a /Remote
parentb0735f67b51b49ecebfd1cc52b9f34547a3f09f3 (diff)
remove reundant isDirect check
Already checked in wantHardLink
Diffstat (limited to 'Remote')
-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)