S3 storage classes expansion
Added support for storageclass=STANDARD_IA to use Amazon's new Infrequently Accessed storage. Also allows using storageclass=NEARLINE to use Google's NearLine storage. The necessary changes to aws to support this are in https://github.com/aristidb/aws/pull/176
This commit is contained in:
parent
89238e9595
commit
26d6566307
6 changed files with 42 additions and 7 deletions
|
@ -41,11 +41,12 @@ glacierConfigurator a = do
|
|||
where
|
||||
needglaciercli = $(widgetFile "configurators/needglaciercli")
|
||||
|
||||
data StorageClass = StandardRedundancy | ReducedRedundancy
|
||||
data StorageClass = StandardRedundancy | StandardInfrequentAccess | ReducedRedundancy
|
||||
deriving (Eq, Enum, Bounded)
|
||||
|
||||
instance Show StorageClass where
|
||||
show StandardRedundancy = "STANDARD"
|
||||
show StandardInfrequentAccess = "STANDARD_IA"
|
||||
show ReducedRedundancy = "REDUCED_REDUNDANCY"
|
||||
|
||||
data AWSInput = AWSInput
|
||||
|
@ -75,6 +76,7 @@ s3InputAForm defcreds = AWSInput
|
|||
storageclasses :: [(Text, StorageClass)]
|
||||
storageclasses =
|
||||
[ ("Standard redundancy", StandardRedundancy)
|
||||
, ("Infrequent access (cheaper for backups and archives)", StandardInfrequentAccess)
|
||||
, ("Reduced redundancy (costs less)", ReducedRedundancy)
|
||||
]
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue