{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -Wall -Werror #-}
module Amazonka.Redshift.Internal
( getAccountId,
getCloudTrailAccountId,
)
where
import Amazonka.Core
import Amazonka.Data
getAccountId :: Region -> Maybe Text
getAccountId :: Region -> Maybe Text
getAccountId = \case
Region
NorthVirginia -> forall a. a -> Maybe a
Just Text
"193672423079"
Region
Ohio -> forall a. a -> Maybe a
Just Text
"391106570357"
Region
NorthCalifornia -> forall a. a -> Maybe a
Just Text
"262260360010"
Region
Oregon -> forall a. a -> Maybe a
Just Text
"902366379725"
Region
CapeTown -> forall a. a -> Maybe a
Just Text
"365689465814"
Region
HongKong -> forall a. a -> Maybe a
Just Text
"313564881002"
Region
Mumbai -> forall a. a -> Maybe a
Just Text
"865932855811"
Region
Osaka -> forall a. a -> Maybe a
Just Text
"090321488786"
Region
Seoul -> forall a. a -> Maybe a
Just Text
"760740231472"
Region
Singapore -> forall a. a -> Maybe a
Just Text
"361669875840"
Region
Sydney -> forall a. a -> Maybe a
Just Text
"762762565011"
Region
Tokyo -> forall a. a -> Maybe a
Just Text
"404641285394"
Region
Montreal -> forall a. a -> Maybe a
Just Text
"907379612154"
Region
Frankfurt -> forall a. a -> Maybe a
Just Text
"053454850223"
Region
Ireland -> forall a. a -> Maybe a
Just Text
"210876761215"
Region
London -> forall a. a -> Maybe a
Just Text
"307160386991"
Region
Milan -> forall a. a -> Maybe a
Just Text
"945612479654"
Region
Paris -> forall a. a -> Maybe a
Just Text
"915173422425"
Region
Stockholm -> forall a. a -> Maybe a
Just Text
"729911121831"
Region
Bahrain -> forall a. a -> Maybe a
Just Text
"013126148197"
Region
SaoPaulo -> forall a. a -> Maybe a
Just Text
"075028567923"
Region' Text
_ -> forall a. Maybe a
Nothing
{-# DEPRECATED
getAccountId
"Redshift now delivers logs using service-principal credentials. \
\See the haddocks for more information."
#-}
getCloudTrailAccountId :: Region -> Maybe Text
getCloudTrailAccountId :: Region -> Maybe Text
getCloudTrailAccountId = \case
Region
NorthVirginia -> forall a. a -> Maybe a
Just Text
"368064434614"
Region
Ohio -> forall a. a -> Maybe a
Just Text
"790247189693"
Region
NorthCalifornia -> forall a. a -> Maybe a
Just Text
"703715109447"
Region
Oregon -> forall a. a -> Maybe a
Just Text
"473191095985"
Region
CapeTown -> forall a. a -> Maybe a
Just Text
"420376844563"
Region
HongKong -> forall a. a -> Maybe a
Just Text
"651179539253"
Region
Hyderabad -> forall a. a -> Maybe a
Just Text
"297058826802"
Region
Jakarta -> forall a. a -> Maybe a
Just Text
"623197973179"
Region
Melbourne -> forall a. a -> Maybe a
Just Text
"945512339897"
Region
Mumbai -> forall a. a -> Maybe a
Just Text
"408097707231"
Region
Osaka -> forall a. a -> Maybe a
Just Text
"398671365691"
Region
Seoul -> forall a. a -> Maybe a
Just Text
"713597048934"
Region
Singapore -> forall a. a -> Maybe a
Just Text
"960118270566"
Region
Sydney -> forall a. a -> Maybe a
Just Text
"485979073181"
Region
Tokyo -> forall a. a -> Maybe a
Just Text
"615915377779"
Region
Montreal -> forall a. a -> Maybe a
Just Text
"764870610256"
Region
Frankfurt -> forall a. a -> Maybe a
Just Text
"434091160558"
Region
Ireland -> forall a. a -> Maybe a
Just Text
"246478207311"
Region
London -> forall a. a -> Maybe a
Just Text
"885798887673"
Region
Milan -> forall a. a -> Maybe a
Just Text
"041313461515"
Region
Paris -> forall a. a -> Maybe a
Just Text
"694668203235"
Region
Stockholm -> forall a. a -> Maybe a
Just Text
"553461782468"
Region
Zurich -> forall a. a -> Maybe a
Just Text
"668912161003"
Region
Spain -> forall a. a -> Maybe a
Just Text
"028811157404"
Region
Bahrain -> forall a. a -> Maybe a
Just Text
"051362938876"
Region
UAE -> forall a. a -> Maybe a
Just Text
"595013617770"
Region
SaoPaulo -> forall a. a -> Maybe a
Just Text
"392442076723"
Region' Text
_ -> forall a. Maybe a
Nothing