diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-03-22 00:23:15 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-03-22 17:32:47 -0400 |
| commit | f1398b558316a936690a8f3b01493f498d15b659 (patch) | |
| tree | ac58768f5e421b985f3a2ed135bb338b03a991ec /Annex/UUID.hs | |
| parent | 4eb51126819fe01a003688267f481c6d8014ef47 (diff) | |
use new getConfig
Diffstat (limited to 'Annex/UUID.hs')
| -rw-r--r-- | Annex/UUID.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Annex/UUID.hs b/Annex/UUID.hs index 0ab2e7e52..e8306de90 100644 --- a/Annex/UUID.hs +++ b/Annex/UUID.hs @@ -47,7 +47,7 @@ getUUID = getRepoUUID =<< gitRepo {- Looks up a repo's UUID, caching it in .git/config if it's not already. -} getRepoUUID :: Git.Repo -> Annex UUID getRepoUUID r = do - c <- fromRepo cached + c <- toUUID <$> getConfig cachekey "" let u = getUncachedUUID r if c /= u && u /= NoUUID @@ -56,7 +56,6 @@ getRepoUUID r = do return u else return c where - cached = toUUID . Git.Config.get cachekey "" updatecache u = do g <- gitRepo when (g /= r) $ storeUUID cachekey u |