summaryrefslogtreecommitdiff
path: root/Annex/UUID.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-04-27 12:21:38 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-04-27 12:21:38 -0400
commite0b7012ccc405dedb556b8c940eb66e42304bc73 (patch)
tree6a7093d721d4e1ad4933a1255e057c7df5189135 /Annex/UUID.hs
parenta2ee4386bb8f64046a5838038c89492dddcce94f (diff)
uninit: Clear annex.uuid from .git/config. Closes: #670639
Diffstat (limited to 'Annex/UUID.hs')
-rw-r--r--Annex/UUID.hs8
1 files changed, 7 insertions, 1 deletions
diff --git a/Annex/UUID.hs b/Annex/UUID.hs
index e8306de90..5459cc7fe 100644
--- a/Annex/UUID.hs
+++ b/Annex/UUID.hs
@@ -16,12 +16,14 @@ module Annex.UUID (
getRepoUUID,
getUncachedUUID,
prepUUID,
- genUUID
+ genUUID,
+ removeRepoUUID,
) where
import Common.Annex
import qualified Git
import qualified Git.Config
+import qualified Git.Command
import qualified Build.SysConfig as SysConfig
import Config
@@ -61,6 +63,10 @@ getRepoUUID r = do
when (g /= r) $ storeUUID cachekey u
cachekey = remoteConfig r "uuid"
+removeRepoUUID :: Annex ()
+removeRepoUUID = inRepo $ Git.Command.run "config"
+ [Param "--unset", Param configkey]
+
getUncachedUUID :: Git.Repo -> UUID
getUncachedUUID = toUUID . Git.Config.get configkey ""