start borg special remote

Compiles, but unusable so far.
This commit is contained in:
Joey Hess 2020-12-18 16:03:51 -04:00
parent 909318dcee
commit 3207e8293b
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
7 changed files with 135 additions and 2 deletions

View file

@ -327,6 +327,7 @@ data RemoteGitConfig = RemoteGitConfig
, remoteAnnexGnupgDecryptOptions :: [String]
, remoteAnnexRsyncUrl :: Maybe String
, remoteAnnexBupRepo :: Maybe String
, remoteAnnexBorgRepo :: Maybe String
, remoteAnnexTahoe :: Maybe FilePath
, remoteAnnexBupSplitOptions :: [String]
, remoteAnnexDirectory :: Maybe FilePath
@ -391,6 +392,7 @@ extractRemoteGitConfig r remotename = do
, remoteAnnexGnupgDecryptOptions = getoptions "gnupg-decrypt-options"
, remoteAnnexRsyncUrl = notempty $ getmaybe "rsyncurl"
, remoteAnnexBupRepo = getmaybe "buprepo"
, remoteAnnexBorgRepo = getmaybe "borgrepo"
, remoteAnnexTahoe = getmaybe "tahoe"
, remoteAnnexBupSplitOptions = getoptions "bup-split-options"
, remoteAnnexDirectory = notempty $ getmaybe "directory"