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

catch exception when repo is really not available

Browse source
This commit is contained in:
Joey Hess 2014-07-15 14:39:31 -04:00
parent 4e44bda4cc
commit bd514eb65a
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/Git.hs
View file

@ -192,7 +192,9 @@ tryGitConfigRead r
| Git.GCrypt.isEncrypted r = handlegcrypt =<< getConfigMaybe (remoteConfig r "uuid") | Git.GCrypt.isEncrypted r = handlegcrypt =<< getConfigMaybe (remoteConfig r "uuid")
| Git.repoIsUrl r = return r | Git.repoIsUrl r = return r
| otherwise = store $ liftIO $ | otherwise = store $ liftIO $
readlocalannexconfig `catchNonAsync` (const $ Git.Config.read r) readlocalannexconfig
`catchNonAsync` (const $ Git.Config.read r)
`catchNonAsync` (const $ return r)
where where
haveconfig = not . M.null . Git.config haveconfig = not . M.null . Git.config