mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

ignore gcrypt remotes w/o an annex-uuid

Browse source
This commit is contained in:
Joey Hess 2013-09-08 15:19:14 -04:00
parent e05b0f4906
commit 00fb5705ff
3 changed files with 17 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Remote/GCrypt.hs
View file

@ -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