From 101099f7b573d53644fb07b207614ac31eee13fc Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 1 Oct 2013 14:38:20 -0400 Subject: [PATCH] fix probing for local gcrypt repos --- Remote/GCrypt.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Remote/GCrypt.hs b/Remote/GCrypt.hs index 475a4785f9..acbf3cd68a 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" [] []