mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove reundant isDirect check

Browse source 
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
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote/Git.hs
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)