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

skeleton git-lfs special remote

Browse source 
This is a special remote and a git remote at the same time; git can pull
and push to it and git-annex can use it as a special remote.

Remote.Git has to check if it's configured as a git-lfs special remote
and sets it up as one if so.

Object methods not implemented yet.
This commit is contained in:
Joey Hess 2019-08-01 15:11:45 -04:00
parent 9c20a8792d
commit 1cef791cf3
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
6 changed files with 145 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote/Git.hs
View file

@ -51,6 +51,7 @@ import Remote.Helper.Messages
import Remote.Helper.ExportImport
import qualified Remote.Helper.Ssh as Ssh
import qualified Remote.GCrypt
import qualified Remote.GitLFS
import qualified Remote.P2P
import qualified Remote.Helper.P2P as P2PHelper
import P2P.Address
@ -144,6 +145,7 @@ configRead autoinit r = do
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote)
gen r u c gc
| Git.GCrypt.isEncrypted r = Remote.GCrypt.chainGen r u c gc
| remoteAnnexGitLFS gc = Remote.GitLFS.gen r u c gc
| otherwise = case repoP2PAddress r of
Nothing -> do
st <- mkState r u gc