git-annex/Remote/S3stub.hs
2011-06-10 12:11:34 -04:00

13 lines
266 B
Haskell

-- stub for when hS3 is not available
module Remote.S3 (remote) where
import Types.Remote
import Types
remote :: RemoteType Annex
remote = RemoteType {
typename = "S3",
enumerate = return [],
generate = error "S3 not enabled",
setup = error "S3 not enabled"
}