remove reundant isDirect check

Already checked in wantHardLink
This commit is contained in:
Joey Hess 2016-01-13 14:13:37 -04:00
parent 07e57ca6bc
commit 2513c1dfd0
Failed to extract signature

View file

@ -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)