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/Glacier.hs | |
| parent | 2696ed67ebb4a3be994ff35567bdc74459d9f0bf (diff) | |
webapp: S3 and Glacier forms now have a select list of all currently-supported AWS regions.
Diffstat (limited to 'Remote/Glacier.hs')
| -rw-r--r-- | Remote/Glacier.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Remote/Glacier.hs b/Remote/Glacier.hs index edb9225aa..0a41b0083 100644 --- a/Remote/Glacier.hs +++ b/Remote/Glacier.hs @@ -8,6 +8,7 @@ module Remote.Glacier (remote, jobList) where import qualified Data.Map as M +import qualified Data.Text as T import System.Environment import Common.Annex @@ -73,7 +74,7 @@ glacierSetup u c = do remotename = fromJust (M.lookup "name" c) defvault = remotename ++ "-" ++ fromUUID u defaults = M.fromList - [ ("datacenter", "us-east-1") + [ ("datacenter", T.unpack $ AWS.defaultRegion AWS.Glacier) , ("vault", defvault) ] |