minor

2 files changed, 3 insertions, 5 deletions

diff --git a/Remote/Bup.hs b/Remote/Bup.hs
index ef34e2c63..5fbe9a8b5 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 2936beaf7..c315d457d 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
 	}