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:20 -0400 |
| commit | cbefe5cd014115d2e82affaf7cb006ee592cc048 (patch) | |
| tree | 6dfc0e48407efc7ea49179d27fa2c029ffdc195e /Remote/GCrypt.hs | |
| parent | 36d4d018420da4c515a8b6e4a8a7ba1caee0c6a7 (diff) | |
fix probing for local gcrypt repos
Diffstat (limited to 'Remote/GCrypt.hs')
| -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" [] [] |