diff options
author | 2011-03-27 17:00:05 -0400 | |
---|---|---|
committer | 2011-03-27 17:00:05 -0400 | |
commit | 0d83d17f0455e664f06e3e46b994abadceb7b879 (patch) | |
tree | 0b90134425130f7ce687489ee666130394ccafa9 | |
parent | 688e94fd30ca1aa908f5387e488451b9ed2f35e5 (diff) |
convert map to use new code
-rw-r--r-- | Command/Map.hs | 4 | ||||
-rw-r--r-- | Remote/GitRemote.hs | 5 |
2 files changed, 6 insertions, 3 deletions
diff --git a/Command/Map.hs b/Command/Map.hs index 4ae947b15..6206aeeb5 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 0ec0c70e8..8671ef7fa 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) |