diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-03-29 13:49:54 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-03-29 14:10:12 -0400 |
| commit | 05751d55cd8002e6a2a2afc520622fb6697472e3 (patch) | |
| tree | 6a86d2ebfd6888f611d86ec33984ab512d28e087 /Remote/Git.hs | |
| parent | a3b6586902d6689b07c050b1fc50e19f4115c42e (diff) | |
clean up remote.log handling
Diffstat (limited to 'Remote/Git.hs')
| -rw-r--r-- | Remote/Git.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs index 68bd172e9..b686e47af 100644 --- a/Remote/Git.hs +++ b/Remote/Git.hs @@ -12,7 +12,7 @@ module Remote.Git ( import Control.Exception.Extensible import Control.Monad.State (liftIO) -import qualified Data.Map as Map +import qualified Data.Map as M import System.Cmd.Utils import Control.Monad (filterM, liftM) @@ -68,7 +68,6 @@ genRemote r = do removeKey = dropKey r, hasKey = inAnnex r, hasKeyCheap = not (Git.repoIsUrl r), - hasConfig = False, config = Nothing, setup = \_ -> return () } @@ -77,7 +76,7 @@ genRemote r = do - returns the updated repo. -} tryGitConfigRead :: Git.Repo -> Annex Git.Repo tryGitConfigRead r - | not $ Map.null $ Git.configMap r = return r -- already read + | not $ M.null $ Git.configMap r = return r -- already read | Git.repoIsSsh r = store $ onRemote r (pipedconfig, r) "configlist" [] | Git.repoIsUrl r = return r | otherwise = store $ safely $ Git.configRead r |