remove S3stub stuff

Let's keep that in a no-s3 branch, which can be merged into eg,
debian-stable.
This commit is contained in:
Joey Hess 2012-01-05 23:14:10 -04:00
parent c371c40a88
commit f534fcc7b1
6 changed files with 13 additions and 32 deletions

View file

@ -28,8 +28,8 @@ import Crypto
import Annex.Content
import Utility.Base64
remote :: Maybe RemoteType
remote = Just $ RemoteType {
remote :: RemoteType
remote = RemoteType {
typename = "S3",
enumerate = findSpecialRemotes "s3",
generate = gen,
@ -58,7 +58,7 @@ gen' r u c cst =
hasKeyCheap = False,
config = c,
repo = r,
remotetype = fromJust remote
remotetype = remote
}
s3Setup :: UUID -> RemoteConfig -> Annex RemoteConfig

View file

@ -1,7 +0,0 @@
-- stub for when hS3 is not available
module Remote.S3 (remote) where
import Types
remote :: Maybe RemoteType
remote = Nothing