diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-01-05 23:10:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-01-05 23:11:07 -0400 |
| commit | c371c40a889c73b79f7f8918b2918e2fbb75f212 (patch) | |
| tree | 0d81d0541c465afd04317c237861d364d42171e9 | |
| parent | ad43f0362688a601ba43f462e80f5a91bf398c02 (diff) | |
Don't list S3 as a remote type when built without S3 support.
| -rw-r--r-- | Remote.hs | 14 | ||||
| -rw-r--r-- | Remote/S3real.hs | 6 | ||||
| -rw-r--r-- | Remote/S3stub.hs | 10 | ||||
| -rw-r--r-- | debian/changelog | 1 |
4 files changed, 13 insertions, 18 deletions
@@ -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. diff --git a/Remote/S3real.hs b/Remote/S3real.hs index bef89b553..96a831e34 100644 --- a/Remote/S3real.hs +++ b/Remote/S3real.hs @@ -28,8 +28,8 @@ import Crypto import Annex.Content import Utility.Base64 -remote :: RemoteType -remote = RemoteType { +remote :: Maybe RemoteType +remote = Just $ RemoteType { typename = "S3", enumerate = findSpecialRemotes "s3", generate = gen, @@ -58,7 +58,7 @@ gen' r u c cst = hasKeyCheap = False, config = c, repo = r, - remotetype = remote + remotetype = fromJust remote } s3Setup :: UUID -> RemoteConfig -> Annex RemoteConfig diff --git a/Remote/S3stub.hs b/Remote/S3stub.hs index 31e8a339e..5bd2b1c79 100644 --- a/Remote/S3stub.hs +++ b/Remote/S3stub.hs @@ -1,13 +1,7 @@ -- stub for when hS3 is not available module Remote.S3 (remote) where -import Types.Remote import Types -remote :: RemoteType -remote = RemoteType { - typename = "S3", - enumerate = return [], - generate = error "S3 not enabled", - setup = error "S3 not enabled" -} +remote :: Maybe RemoteType +remote = Nothing diff --git a/debian/changelog b/debian/changelog index e5687aac1..ac6e9b80c 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,6 +1,7 @@ git-annex (3.20120106) UNRELEASED; urgency=low * Support unescaped repository urls, like git does. + * Don't list S3 as a remote type when built without S3 support. -- Joey Hess <joeyh@debian.org> Thu, 05 Jan 2012 14:29:30 -0400 |