summaryrefslogtreecommitdiff
path: root/UUID.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-03-27 16:55:43 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-03-27 16:55:43 -0400
commit30f427700f9e9d59a83775a049e670cc05f2dee6 (patch)
tree224bdc04fbe08ed02d3801354bbfca8b75b7f4f8 /UUID.hs
parent3470260a8500b42f805b8263af9c73b99706bb92 (diff)
converted several commands to use Remote
only move and map still to convert
Diffstat (limited to 'UUID.hs')
-rw-r--r--UUID.hs9
1 files changed, 4 insertions, 5 deletions
diff --git a/UUID.hs b/UUID.hs
index 3f2843485..5caf11045 100644
--- a/UUID.hs
+++ b/UUID.hs
@@ -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