diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-04-01 12:19:26 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-04-01 12:19:26 -0400 |
| commit | bf1e2205a4af4b490d5dd284a411bd180d8d6c9d (patch) | |
| tree | 6ed4b381f5978c0d72b91192e30e5ef3bd38e35e /Remote/Git.hs | |
| parent | cbabee36e1e794096ad0693d6f65467fc7936894 (diff) | |
bugfix for uuid lookup
Diffstat (limited to 'Remote/Git.hs')
| -rw-r--r-- | Remote/Git.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs index c1423bef7..a45845510 100644 --- a/Remote/Git.hs +++ b/Remote/Git.hs @@ -54,13 +54,15 @@ gen r u _ = do (False, "") -> tryGitConfigRead r _ -> return r + u' <- getUUID r' + let defcst = if not $ Git.repoIsUrl r then cheapRemoteCost else expensiveRemoteCost cst <- remoteCost r' defcst return $ Remote { - uuid = u, + uuid = u', cost = cst, name = Git.repoDescribe r', storeKey = copyToRemote r', |