summaryrefslogtreecommitdiff
path: root/Remote/S3stub.hs
blob: 31e8a339ef09e8203bee1011789ff5a9b4aab91c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
-- 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"
}