diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-01 14:38:20 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-01 14:38:54 -0400 |
| commit | 2e3990d125b96a13545b55a203f41e3bf09e75e3 (patch) | |
| tree | becb803c3007e6ef6c965bb2ff364751e8705759 | |
| parent | 5e242ed6de52c52bab51c94a23d8ad1fac80b6a4 (diff) | |
fix probing for local gcrypt repos
| -rw-r--r-- | Remote/GCrypt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/GCrypt.hs b/Remote/GCrypt.hs index 475a4785f..acbf3cd68 100644 --- a/Remote/GCrypt.hs +++ b/Remote/GCrypt.hs @@ -375,7 +375,7 @@ coreGCryptId = "core.gcrypt-id" - (Also returns a version of input repo with its config read.) -} getGCryptId :: Bool -> Git.Repo -> Annex (Maybe Git.GCrypt.GCryptId, Git.Repo) getGCryptId fast r - | Git.repoIsLocal r = extract <$> + | Git.repoIsLocal r || Git.repoIsLocalUnknown r = extract <$> liftIO (catchMaybeIO $ Git.Config.read r) | not fast = extract . liftM fst <$> getM (eitherToMaybe <$>) [ Ssh.onRemote r (Git.Config.fromPipe r, Left undefined) "configlist" [] [] |