more Wall cleaning

1 files changed, 3 insertions, 2 deletions

diff --git a/Annex.hs b/Annex.hs
index 60ae91708..63eef5158 100644
--- a/Annex.hs
+++ b/Annex.hs
@@ -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 -}