mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

convert map to use new code

Browse source
This commit is contained in:
Joey Hess 2011-03-27 17:00:05 -04:00
parent 688e94fd30
commit 0d83d17f04
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Command/Map.hs
View file

@ -16,7 +16,7 @@ import Data.List.Utils
import Command import Command
import qualified Annex import qualified Annex
import qualified GitRepo as Git import qualified GitRepo as Git
import qualified Remotes import qualified Remote.GitRemote
import Messages import Messages
import Types import Types
import Utility import Utility
@ -203,7 +203,7 @@ tryScan r
Git.hConfigRead r Git.hConfigRead r
configlist = configlist =
Remotes.onRemote r (pipedconfig, Nothing) "configlist" [] Remote.GitRemote.onRemote r (pipedconfig, Nothing) "configlist" []
manualconfiglist = do manualconfiglist = do
let sshcmd = let sshcmd =
"cd " ++ shellEscape(Git.workTree r) ++ " && " ++ "cd " ++ shellEscape(Git.workTree r) ++ " && " ++

5
Remote/GitRemote.hs
View file

@ -5,7 +5,10 @@
- Licensed under the GNU GPL version 3 or higher. - 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.Exception.Extensible
import Control.Monad.State (liftIO) import Control.Monad.State (liftIO)