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

Don't list S3 as a remote type when built without S3 support.

Browse source
This commit is contained in:
Joey Hess 2012-01-05 23:10:19 -04:00
parent ad43f03626
commit c371c40a88
4 changed files with 13 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Remote.hs
View file

@ -55,14 +55,14 @@ import qualified Remote.Web
import qualified Remote.Hook
remoteTypes :: [RemoteType]
remoteTypes =
[ Remote.Git.remote
remoteTypes = catMaybes
[ Just Remote.Git.remote
, Remote.S3.remote
, Remote.Bup.remote
, Remote.Directory.remote
, Remote.Rsync.remote
, Remote.Web.remote
, Remote.Hook.remote
, Just Remote.Bup.remote
, Just Remote.Directory.remote
, Just Remote.Rsync.remote
, Just Remote.Web.remote
, Just Remote.Hook.remote
]
{- Builds a list of all available Remotes.