summaryrefslogtreecommitdiff
path: root/Remote.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-01-05 23:10:19 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-01-05 23:11:07 -0400
commitc371c40a889c73b79f7f8918b2918e2fbb75f212 (patch)
tree0d81d0541c465afd04317c237861d364d42171e9 /Remote.hs
parentad43f0362688a601ba43f462e80f5a91bf398c02 (diff)
Don't list S3 as a remote type when built without S3 support.
Diffstat (limited to 'Remote.hs')
-rw-r--r--Remote.hs14
1 files changed, 7 insertions, 7 deletions
diff --git a/Remote.hs b/Remote.hs
index 8046175d2..8dd80d419 100644
--- a/Remote.hs
+++ b/Remote.hs
@@ -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.