more Wall cleaning

This commit is contained in:
Joey Hess 2010-10-31 14:32:18 -04:00
parent dc12ce762e
commit 1576c48c80
3 changed files with 8 additions and 4 deletions

View file

@ -39,15 +39,16 @@ new gitrepo allbackends = do
Internals.flags = M.empty,
Internals.repoqueue = GitQueue.empty
}
(_,s') <- Annex.run s (prep gitrepo)
(_,s') <- Annex.run s prep
return s'
where
prep gitrepo = do
prep = do
-- read git config and update state
gitrepo' <- liftIO $ Git.configRead gitrepo
Annex.gitRepoChange gitrepo'
{- performs an action in the Annex monad -}
run :: AnnexState -> StateT AnnexState IO a -> IO (a, AnnexState)
run state action = runStateT (action) state
{- Returns the git repository being acted on -}