diff options
author | 2011-04-08 20:55:22 -0400 | |
---|---|---|
committer | 2011-04-08 20:55:22 -0400 | |
commit | c253d07a82f1ffac4aa256c09a6fd7dcbc780923 (patch) | |
tree | c61043f43851e360589ee14f35cfba118d0840f6 /Remote/Git.hs | |
parent | 3650f42bcfb631e1ef6d53be725b72cbbfc249cd (diff) |
minor
Diffstat (limited to 'Remote/Git.hs')
-rw-r--r-- | Remote/Git.hs | 6 |
1 files changed, 2 insertions, 4 deletions
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 } |