From 13b601854be937d9cf242850e73f6d094487511b Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 13 Jan 2016 14:13:37 -0400
Subject: remove reundant isDirect check

Already checked in wantHardLink
---
 Remote/Git.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3