From 77055f5ff82d2712f599ba77e03d5d2cc022ff65 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 13 Oct 2010 14:51:09 -0400
Subject: move some stuff out of IO

---
 Annex.hs | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'Annex.hs')

diff --git a/Annex.hs b/Annex.hs
index bd57514ea..e06bd84bc 100644
--- a/Annex.hs
+++ b/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 =
-- 
cgit v1.2.3