summaryrefslogtreecommitdiff
path: root/Git/Config.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-12-31 04:50:39 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-12-31 04:50:39 -0400
commitf0957426c586610d16ad9694e002b73324baa29a (patch)
tree2d0d05a82cd6e77e4bb70a26a9f3aa35c9d20a4f /Git/Config.hs
parent25e4b116c7ab436492a86236f796310d405517a1 (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.hs3
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