From 0d83d17f0455e664f06e3e46b994abadceb7b879 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 27 Mar 2011 17:00:05 -0400
Subject: [PATCH] convert map to use new code

---
 Command/Map.hs      | 4 ++--
 Remote/GitRemote.hs | 5 ++++-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/Command/Map.hs b/Command/Map.hs
index 4ae947b15e..6206aeeb5e 100644
--- a/Command/Map.hs
+++ b/Command/Map.hs
@@ -16,7 +16,7 @@ import Data.List.Utils
 import Command
 import qualified Annex
 import qualified GitRepo as Git
-import qualified Remotes
+import qualified Remote.GitRemote
 import Messages
 import Types
 import Utility
@@ -203,7 +203,7 @@ tryScan r
 				Git.hConfigRead r
 
 		configlist =
-			Remotes.onRemote r (pipedconfig, Nothing) "configlist" []
+			Remote.GitRemote.onRemote r (pipedconfig, Nothing) "configlist" []
 		manualconfiglist = do
 			let sshcmd =
 				"cd " ++ shellEscape(Git.workTree r) ++ " && " ++
diff --git a/Remote/GitRemote.hs b/Remote/GitRemote.hs
index 0ec0c70e8d..8671ef7fa2 100644
--- a/Remote/GitRemote.hs
+++ b/Remote/GitRemote.hs
@@ -5,7 +5,10 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
-module Remote.GitRemote (generate) where
+module Remote.GitRemote (
+	generate,
+	onRemote
+) where
 
 import Control.Exception.Extensible
 import Control.Monad.State (liftIO)