From c253d07a82f1ffac4aa256c09a6fd7dcbc780923 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 8 Apr 2011 20:55:22 -0400
Subject: [PATCH] minor

---
 Remote/Bup.hs | 2 +-
 Remote/Git.hs | 6 ++----
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/Remote/Bup.hs b/Remote/Bup.hs
index ef34e2c635..5fbe9a8b5d 100644
--- a/Remote/Bup.hs
+++ b/Remote/Bup.hs
@@ -107,7 +107,7 @@ retrieve bupremote k f = do
 			_ -> return False
 	case ret of
 		Right r -> return r
-		Left e -> return False
+		Left _ -> return False
 
 remove :: Key -> Annex Bool
 remove _ = do
diff --git a/Remote/Git.hs b/Remote/Git.hs
index 2936beaf7d..c315d457d6 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -57,9 +57,7 @@ gen r u _ = do
 
 	u' <- getUUID r'
 
-	let defcst = if not $ Git.repoIsUrl r
-		then cheapRemoteCost
-		else expensiveRemoteCost
+	let defcst = if cheap then cheapRemoteCost else expensiveRemoteCost
 	cst <- remoteCost r' defcst
 
 	return $ Remote {
@@ -70,7 +68,7 @@ gen r u _ = do
 		retrieveKeyFile = copyFromRemote r',
 		removeKey = dropKey r',
 		hasKey = inAnnex r',
-		hasKeyCheap = not (Git.repoIsUrl r'),
+		hasKeyCheap = cheap,
 		config = Nothing
 	}