diff options
author | 2013-10-14 12:23:38 -0400 | |
---|---|---|
committer | 2013-10-14 12:26:46 -0400 | |
commit | 4aedb2d1d42b593609d1b5ca2ad4405feb312407 (patch) | |
tree | 21b88d93fa4d3b06000800412b42f9bf42bc286a /Remote | |
parent | 7e226e373b203dce324b9d3b7fc2a82ca1781183 (diff) |
ye olde inverted logic
Diffstat (limited to 'Remote')
-rw-r--r-- | Remote/Git.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs index be63de804..a3ece1443 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. -} |