minor

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

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
 	}