remove reundant isDirect check
Already checked in wantHardLink
This commit is contained in:
parent
07e57ca6bc
commit
2513c1dfd0
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue