diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-09-08 15:19:14 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-09-08 15:19:14 -0400 |
| commit | 8bb2e27dca0a81da54e0ae2a44a8844d5861e8e0 (patch) | |
| tree | 4b55618b3a4ac2756f39f16d0cc3ca3021f3633a /Remote/GCrypt.hs | |
| parent | eaffb01ca5db31f8e1f8f04c4fa90d64e0b7bc6a (diff) | |
ignore gcrypt remotes w/o an annex-uuid
Diffstat (limited to 'Remote/GCrypt.hs')
| -rw-r--r-- | Remote/GCrypt.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Remote/GCrypt.hs b/Remote/GCrypt.hs index 2ff137f57..3c0706989 100644 --- a/Remote/GCrypt.hs +++ b/Remote/GCrypt.hs @@ -25,6 +25,7 @@ import Config import Config.Cost import Remote.Helper.Git import Remote.Helper.Encryptable +import Remote.Helper.Special import Utility.Metered import Crypto import Annex.UUID @@ -145,7 +146,9 @@ gCryptSetup mu c = go $ M.lookup "gitrepo" c Just v -> do let u = genUUIDInNameSpace gCryptNameSpace v if Just u == mu || mu == Nothing - then return (c', u) + then do + gitConfigSpecialRemote u c' "gcrypt" "true" + return (c', u) else error "uuid mismatch" store :: Remote -> Remote.Rsync.RsyncOpts -> (Cipher, Key) -> Key -> MeterUpdate -> Annex Bool |