From 56b8194470f0ddc1b3e1c51da8ca55a5c9c2eb05 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 9 Nov 2011 01:15:51 -0400
Subject: cleanup

---
 Remote/Helper/Special.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Remote/Helper/Special.hs')

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
 
-- 
cgit v1.2.3