From fed1d3c1f534e01414292cd99724e15f5b19cda7 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 23 Oct 2010 22:25:07 -0400
Subject: [PATCH] bugfix

Annex.new can throw an IO exception if a remote git repo is not available.
---
 Remotes.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Remotes.hs b/Remotes.hs
index 4cfcfdffdc..aec38a363e 100644
--- a/Remotes.hs
+++ b/Remotes.hs
@@ -76,10 +76,10 @@ keyPossibilities key = do
 inAnnex :: Git.Repo -> Key -> Annex (Either IOException Bool)
 inAnnex remote key = do
 	-- the check needs to run in an Annex monad using the remote
-	a <- liftIO $ Annex.new remote []
-	liftIO $ ((try $ check a)::IO (Either IOException Bool))
+	liftIO $ ((try $ check)::IO (Either IOException Bool))
 	where
-		check a = do
+		check = do
+			a <- Annex.new remote []
 			(result, _) <- Annex.run a (Core.inAnnex key)
 			return result