diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-04-15 15:09:36 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-04-15 15:09:36 -0400 |
| commit | 1e84dab4c8def55699fc1b673bd0abd0f5dc4aee (patch) | |
| tree | 8565b776617ee1412d7fcaddcef215570745b73a /Remote/Special.hs | |
| parent | f7018e47e48cc61ef6e84adcff89f892cee2c8db (diff) | |
RemoteConfig type
Diffstat (limited to 'Remote/Special.hs')
| -rw-r--r-- | Remote/Special.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Remote/Special.hs b/Remote/Special.hs index b5d5a137f..53ac2c6ee 100644 --- a/Remote/Special.hs +++ b/Remote/Special.hs @@ -13,6 +13,7 @@ import Data.String.Utils import Control.Monad.State (liftIO) import Types +import RemoteClass import qualified GitRepo as Git import qualified Annex import UUID @@ -32,7 +33,7 @@ findSpecialRemotes s = do match k _ = startswith "remote." k && endswith (".annex-"++s) k {- Sets up configuration for a special remote in .git/config. -} -gitConfigSpecialRemote :: UUID -> M.Map String String -> String -> String -> Annex () +gitConfigSpecialRemote :: UUID -> RemoteConfig -> String -> String -> Annex () gitConfigSpecialRemote u c k v = do g <- Annex.gitRepo liftIO $ do |