diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-31 04:50:39 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-31 04:50:39 -0400 |
| commit | f0957426c586610d16ad9694e002b73324baa29a (patch) | |
| tree | 2d0d05a82cd6e77e4bb70a26a9f3aa35c9d20a4f /Git/Config.hs | |
| parent | 25e4b116c7ab436492a86236f796310d405517a1 (diff) | |
skip local remotes that are not available (ie, not mounted)
With --fast, unavailable local remotes are filtered out of the fast set.
This way, if there are local remotes, --fast always acts only on them,
and if none are mounted, acts on nothing. This consistency is better
than --fast acting on different remotes depending on what's mounted.
Diffstat (limited to 'Git/Config.hs')
| -rw-r--r-- | Git/Config.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Git/Config.hs b/Git/Config.hs index b2587aa44..d9109548b 100644 --- a/Git/Config.hs +++ b/Git/Config.hs @@ -29,7 +29,8 @@ read repo@(Repo { location = Dir d }) = do bracket_ (changeWorkingDirectory d) (changeWorkingDirectory cwd) $ pOpen ReadFromPipe "git" ["config", "--null", "--list"] $ hRead repo -read r = assertLocal r $ error "internal" +read r = assertLocal r $ + error $ "internal error; trying to read config of " ++ show r {- Reads git config from a handle and populates a repo with it. -} hRead :: Repo -> Handle -> IO Repo |