diff options
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 } |