diff options
author | Joey Hess <joey@kitenet.net> | 2011-03-27 16:55:43 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-03-27 16:55:43 -0400 |
commit | 30f427700f9e9d59a83775a049e670cc05f2dee6 (patch) | |
tree | 224bdc04fbe08ed02d3801354bbfca8b75b7f4f8 /UUID.hs | |
parent | 3470260a8500b42f805b8263af9c73b99706bb92 (diff) |
converted several commands to use Remote
only move and map still to convert
Diffstat (limited to 'UUID.hs')
-rw-r--r-- | UUID.hs | 9 |
1 files changed, 4 insertions, 5 deletions
@@ -3,6 +3,9 @@ - Each git repository used by git-annex has an annex.uuid setting that - uniquely identifies that repository. - + - UUIDs of remotes are cached in git config, using keys named + - remote.<name>.annex-uuid + - - Copyright 2010 Joey Hess <joey@kitenet.net> - - Licensed under the GNU GPL version 3 or higher. @@ -51,11 +54,7 @@ genUUID = liftIO $ pOpen ReadFromPipe command params $ \h -> hGetLine h else [] {- Looks up a repo's UUID. May return "" if none is known. - - - - UUIDs of remotes are cached in git config, using keys named - - remote.<name>.annex-uuid - - - - -} + -} getUUID :: Git.Repo -> Annex UUID getUUID r = do g <- Annex.gitRepo |