From c78aaed317df606f62a0bc7266977b4875866635 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 14 Oct 2013 12:23:38 -0400
Subject: [PATCH] ye olde inverted logic

---
 Remote/Git.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Remote/Git.hs b/Remote/Git.hs
index be63de804b..a3ece1443a 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -403,14 +403,14 @@ copyToRemote r key file p
 
 fsckOnRemote :: Git.Repo -> [CommandParam] -> Annex (IO Bool)
 fsckOnRemote r params
-	| Git.repoIsUrl r = return $ do
-		program <- readProgramFile
-		batchCommand program $ Param "fsck" : params
-	| otherwise = do
+	| Git.repoIsUrl r = do
 		s <- Ssh.git_annex_shell r "fsck" params []
 		return $ case s of
 			Nothing -> return False
 			Just (c, ps) -> batchCommand c ps
+	| otherwise = return $ do
+		program <- readProgramFile
+		batchCommand program $ Param "fsck" : params
 
 {- Runs an action on a local repository inexpensively, by making an annex
  - monad using that repository. -}