From c371c40a889c73b79f7f8918b2918e2fbb75f212 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 5 Jan 2012 23:10:19 -0400
Subject: Don't list S3 as a remote type when built without S3 support.

---
 Remote.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'Remote.hs')

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.
-- 
cgit v1.2.3