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

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.