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

sync: support gcrypt

Browse source
This commit is contained in:
Joey Hess 2013-09-09 09:58:17 -04:00
parent 51ee077d58
commit b64f5baf2d
7 changed files with 23 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Remote/List.hs
View file

@ -100,6 +100,7 @@ updateRemote remote = do
Remote.Git.configRead r
| otherwise = return r
{- Checks if a remote is a special remote -}
specialRemote :: Remote -> Bool
specialRemote r = remotetype r /= Remote.Git.remote
{- Checks if a remote is syncable using git. -}
syncableRemote :: Remote -> Bool
syncableRemote r = remotetype r `elem`
[ Remote.Git.remote, Remote.GCrypt.remote ]