diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-11-09 01:15:51 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-11-09 01:33:20 -0400 |
| commit | 56b8194470f0ddc1b3e1c51da8ca55a5c9c2eb05 (patch) | |
| tree | a03330e0fd21dc8f2f433fb3f5b568418037db8c /Remote/Helper/Special.hs | |
| parent | bf460a0a98d7e4c7f4eac525fcf300629db582b6 (diff) | |
cleanup
Diffstat (limited to 'Remote/Helper/Special.hs')
| -rw-r--r-- | Remote/Helper/Special.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Remote/Helper/Special.hs b/Remote/Helper/Special.hs index 6cea17034..5bbf4169d 100644 --- a/Remote/Helper/Special.hs +++ b/Remote/Helper/Special.hs @@ -19,10 +19,10 @@ import qualified Git -} findSpecialRemotes :: String -> Annex [Git.Repo] findSpecialRemotes s = do - g <- gitRepo - return $ map construct $ remotepairs g + m <- fromRepo $ Git.configMap + return $ map construct $ remotepairs m where - remotepairs r = M.toList $ M.filterWithKey match $ Git.configMap r + remotepairs = M.toList . M.filterWithKey match construct (k,_) = Git.repoRemoteNameFromKey k Git.repoFromUnknown match k _ = startswith "remote." k && endswith (".annex-"++s) k |