move some stuff out of IO

Annex.hs

@@ -9,7 +9,7 @@ module Annex (
 	annexWantFile,
 	annexDropFile,
 	annexPushRepo,
-	repoCost,
+	annexRemotes,
 	annexPullRepo
 ) where
 
@@ -31,8 +31,9 @@ import Types
 startAnnex :: IO State
 startAnnex = do
 	r <- gitRepoFromCwd
-	r' <- prepUUID r
-	gitSetup r'
+	r' <- gitConfigRead r
+	r'' <- prepUUID r'
+	gitSetup r''
 
 	return State {
 		repo = r',
@@ -168,6 +169,10 @@ logStatus state key status = do
 inAnnex :: State -> Backend -> Key -> IO Bool
 inAnnex state backend key = doesFileExist $ annexLocation state backend key
 
+{- Ordered list of remotes for the annex. -}
+annexRemotes :: State -> [GitRepo]
+annexRemotes state = reposByCost state $ gitConfigRemotes (repo state)
+
 {- Orders a list of git repos by cost. -}
 reposByCost :: State -> [GitRepo] -> [GitRepo]
 reposByCost state l =