mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

S3 storage classes expansion

Browse source 
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:
Joey Hess 2015-09-17 17:20:01 -04:00
parent 89238e9595
commit 26d6566307
6 changed files with 42 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/WebApp/Configurators/AWS.hs
View file

@ -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)
]