From 2e94ba9c70b351935b987a4a9abc0c3d8a9bbf9c Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 11 Oct 2021 14:55:57 -0400
Subject: [PATCH] remove broken code

git-annex-shell fsck has never worked, back in
commit 1ffb3bb0ba3c87d14b896dac2a308de9376a44f1 I discussed maybe adding
it one day, but this code has always failed.
---
 Remote/Git.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/Remote/Git.hs b/Remote/Git.hs
index 7f615d114e..1200f7ae9a 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -728,11 +728,7 @@ copyToRemote' repo r st@(State connpool duc _ _ _) key file meterupdate
 
 fsckOnRemote :: Git.Repo -> [CommandParam] -> Annex (IO Bool)
 fsckOnRemote r params
-	| Git.repoIsUrl r = do
-		s <- Ssh.git_annex_shell NoConsumeStdin r "fsck" params []
-		return $ case s of
-			Nothing -> return False
-			Just (c, ps) -> batchCommand c ps
+	| Git.repoIsUrl r = return $ return False
 	| otherwise = return $ do
 		program <- programPath
 		r' <- Git.Config.read r