mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

minor

Browse source
This commit is contained in:
Joey Hess 2011-04-08 20:55:22 -04:00
parent 3650f42bcf
commit c253d07a82
2 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote/Bup.hs
View file

@ -107,7 +107,7 @@ retrieve bupremote k f = do
_ -> return False _ -> return False
case ret of case ret of
Right r -> return r Right r -> return r
Left e -> return False Left _ -> return False
remove :: Key -> Annex Bool remove :: Key -> Annex Bool
remove _ = do remove _ = do

6
Remote/Git.hs
View file

@ -57,9 +57,7 @@ gen r u _ = do
u' <- getUUID r' u' <- getUUID r'
let defcst = if not $ Git.repoIsUrl r let defcst = if cheap then cheapRemoteCost else expensiveRemoteCost
then cheapRemoteCost
else expensiveRemoteCost
cst <- remoteCost r' defcst cst <- remoteCost r' defcst
return $ Remote { return $ Remote {
@ -70,7 +68,7 @@ gen r u _ = do
retrieveKeyFile = copyFromRemote r', retrieveKeyFile = copyFromRemote r',
removeKey = dropKey r', removeKey = dropKey r',
hasKey = inAnnex r', hasKey = inAnnex r',
hasKeyCheap = not (Git.repoIsUrl r'), hasKeyCheap = cheap,
config = Nothing config = Nothing
} }