aboutsummaryrefslogtreecommitdiff
path: root/Remote/Git.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-07-15 14:39:31 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-07-15 14:39:31 -0400
commitbe0ea0cb47ab4ccb24f285b8043262d8dc356b7f (patch)
tree0c97ae5b570b5db306973151746eea2c00b05e79 /Remote/Git.hs
parent312941335215fab3cbfc4ae64420fb3e00a5f840 (diff)
catch exception when repo is really not available
Diffstat (limited to 'Remote/Git.hs')
-rw-r--r--Remote/Git.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs
index 6308f5cd6..a493d3d68 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -192,7 +192,9 @@ tryGitConfigRead r
| Git.GCrypt.isEncrypted r = handlegcrypt =<< getConfigMaybe (remoteConfig r "uuid")
| Git.repoIsUrl r = return r
| otherwise = store $ liftIO $
- readlocalannexconfig `catchNonAsync` (const $ Git.Config.read r)
+ readlocalannexconfig
+ `catchNonAsync` (const $ Git.Config.read r)
+ `catchNonAsync` (const $ return r)
where
haveconfig = not . M.null . Git.config