convert map to use new code

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) ++ " && " ++

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)