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

fix probing for local gcrypt repos

Browse source
This commit is contained in:
Joey Hess 2013-10-01 14:38:20 -04:00
parent 995e1e3c5d
commit 101099f7b5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Remote/GCrypt.hs
View file

@ -375,7 +375,7 @@ coreGCryptId = "core.gcrypt-id"
- (Also returns a version of input repo with its config read.) -} - (Also returns a version of input repo with its config read.) -}
getGCryptId :: Bool -> Git.Repo -> Annex (Maybe Git.GCrypt.GCryptId, Git.Repo) getGCryptId :: Bool -> Git.Repo -> Annex (Maybe Git.GCrypt.GCryptId, Git.Repo)
getGCryptId fast r getGCryptId fast r
| Git.repoIsLocal r = extract <$> | Git.repoIsLocal r || Git.repoIsLocalUnknown r = extract <$>
liftIO (catchMaybeIO $ Git.Config.read r) liftIO (catchMaybeIO $ Git.Config.read r)
| not fast = extract . liftM fst <$> getM (eitherToMaybe <$>) | not fast = extract . liftM fst <$> getM (eitherToMaybe <$>)
[ Ssh.onRemote r (Git.Config.fromPipe r, Left undefined) "configlist" [] [] [ Ssh.onRemote r (Git.Config.fromPipe r, Left undefined) "configlist" [] []