{-# LANGUAGE LambdaCase        #-}
{-# LANGUAGE OverloadedStrings #-}

{-# OPTIONS_GHC -Wall -Werror #-}

-- |
-- Module      : Amazonka.Redshift.Internal
-- Copyright   : (c) 2013-2021 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability   : experimental
-- Portability : non-portable (GHC extensions)
--
module Amazonka.Redshift.Internal
    ( getAccountId
    ) where

import Amazonka.Core

-- | This account identifier is used when attaching a policy to your S3 bucket
-- allowing Redshift to upload and write database audit logs.
--
-- /See:/ <http://docs.aws.amazon.com/redshift/latest/mgmt/db-auditing.html#db-auditing-enable-logging Enabling Database Audit Logging>.
getAccountId :: Region -> Maybe Text
getAccountId :: Region -> Maybe Text
getAccountId = \case
    Region
NorthVirginia   -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"193672423079"
    Region
Ohio            -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"391106570357"
    Region
NorthCalifornia -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"262260360010"
    Region
Oregon          -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"902366379725"
    Region
CapeTown        -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"365689465814"
    Region
HongKong        -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"313564881002"
    Region
Mumbai          -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"865932855811"
    Region
Osaka           -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"090321488786"
    Region
Seoul           -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"760740231472"
    Region
Singapore       -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"361669875840"
    Region
Sydney          -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"762762565011"
    Region
Tokyo           -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"404641285394"
    Region
Montreal        -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"907379612154"
    Region
Frankfurt       -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"053454850223"
    Region
Ireland         -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"210876761215"
    Region
London          -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"307160386991"
    Region
Milan           -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"945612479654"
    Region
Paris           -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"915173422425"
    Region
Stockholm       -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"729911121831"
    Region
Bahrain         -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"013126148197"
    Region
SaoPaulo        -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"075028567923"
    Region
_other          -> Maybe Text
forall a. Maybe a
Nothing