diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-01-13 14:13:37 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-01-13 14:13:37 -0400 |
| commit | 13b601854be937d9cf242850e73f6d094487511b (patch) | |
| tree | afdb13cb838f14abec6807e67c2110cd1a04070a /Remote | |
| parent | b0735f67b51b49ecebfd1cc52b9f34547a3f09f3 (diff) | |
remove reundant isDirect check
Already checked in wantHardLink
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/Git.hs | 2 |
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) |