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

use git-annex-shell configlist

Browse source
This commit is contained in:
Joey Hess 2010-12-31 15:46:33 -04:00
parent 60df4e5728
commit eac433a84a
4 changed files with 66 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Annex.hs
View file

@ -47,7 +47,7 @@ new gitrepo allbackends = do
where
prep = do
-- read git config and update state
gitrepo' <- liftIO $ Git.configRead gitrepo Nothing
gitrepo' <- liftIO $ Git.configRead gitrepo
Annex.gitRepoChange gitrepo'
{- performs an action in the Annex monad -}
@ -136,5 +136,5 @@ setConfig key value = do
g <- Annex.gitRepo
liftIO $ Git.run g ["config", key, value]
-- re-read git config and update the repo's state
g' <- liftIO $ Git.configRead g Nothing
g' <- liftIO $ Git.configRead g
Annex.gitRepoChange g'