diff options
| -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) |