diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-12-01 14:11:37 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-12-01 14:11:37 -0400 |
| commit | aab3d3bd922be355ce0df9616de54c789a2b9411 (patch) | |
| tree | cc88f7cb174a60eae7ed9f25d2d070ee8ec0a560 /Remote/Helper/AWS.hs | |
| parent | 2696ed67ebb4a3be994ff35567bdc74459d9f0bf (diff) | |
webapp: S3 and Glacier forms now have a select list of all currently-supported AWS regions.
Diffstat (limited to 'Remote/Helper/AWS.hs')
| -rw-r--r-- | Remote/Helper/AWS.hs | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/Remote/Helper/AWS.hs b/Remote/Helper/AWS.hs index a988a0b15..1d80ff1b4 100644 --- a/Remote/Helper/AWS.hs +++ b/Remote/Helper/AWS.hs @@ -5,11 +5,16 @@ - Licensed under the GNU GPL version 3 or higher. -} +{-# LANGUAGE OverloadedStrings, TupleSections #-} + module Remote.Helper.AWS where import Common.Annex import Creds +import qualified Data.Map as M +import Data.Text (Text) + creds :: UUID -> CredPairStorage creds u = CredPairStorage { credPairFile = fromUUID u @@ -19,3 +24,43 @@ creds u = CredPairStorage setCredsEnv :: CredPair -> IO () setCredsEnv p = setEnvCredPair p $ creds undefined + +data Service = S3 | Glacier + deriving (Eq) + +type Region = Text + +regionMap :: Service -> M.Map Text Region +regionMap = M.fromList . regionInfo + +defaultRegion :: Service -> Region +defaultRegion = snd . Prelude.head . regionInfo + +{- S3 and Glacier use different names for some regions. Ie, "us-east-1" + - cannot be used with S3, while "US" cannot be used with Glacier. Dunno why. + - Also, Glacier is not yet available in all regions. -} +regionInfo :: Service -> [(Text, Region)] +regionInfo service = map (\(t, r) -> (t, fromServiceRegion r)) $ + filter (matchingService . snd) $ + concatMap (\(t, l) -> map (t,) l) regions + where + regions = + [ ("US East (N. Virginia)", [S3Region "US", GlacierRegion "us-east-1"]) + , ("US West (Oregon)", [BothRegion "us-west-2"]) + , ("US West (N. California)", [BothRegion "us-west-1"]) + , ("EU (Ireland)", [S3Region "EU", GlacierRegion "eu-west-1"]) + , ("Asia Pacific (Singapore)", [S3Region "ap-southeast-1"]) + , ("Asia Pacific (Tokyo)", [BothRegion "ap-northeast-1"]) + , ("Asia Pacific (Sydney)", [S3Region "ap-southeast-2"]) + , ("South America (São Paulo)", [S3Region "sa-east-1"]) + ] + + fromServiceRegion (BothRegion s) = s + fromServiceRegion (S3Region s) = s + fromServiceRegion (GlacierRegion s) = s + + matchingService (BothRegion _) = True + matchingService (S3Region _) = service == S3 + matchingService (GlacierRegion _) = service == Glacier + +data ServiceRegion = BothRegion Region | S3Region Region | GlacierRegion Region |