From 8bb2e27dca0a81da54e0ae2a44a8844d5861e8e0 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 8 Sep 2013 15:19:14 -0400 Subject: ignore gcrypt remotes w/o an annex-uuid --- Remote/GCrypt.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Remote/GCrypt.hs') 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 -- cgit v1.2.3