{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.PinpointSmsVoiceV2.CreatePool
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates a new pool and associates the specified origination identity to
-- the pool. A pool can include one or more phone numbers and SenderIds
-- that are associated with your Amazon Web Services account.
--
-- The new pool inherits its configuration from the specified origination
-- identity. This includes keywords, message type, opt-out list, two-way
-- configuration, and self-managed opt-out configuration. Deletion
-- protection isn\'t inherited from the origination identity and defaults
-- to false.
--
-- If the origination identity is a phone number and is already associated
-- with another pool, an Error is returned. A sender ID can be associated
-- with multiple pools.
module Amazonka.PinpointSmsVoiceV2.CreatePool
  ( -- * Creating a Request
    CreatePool (..),
    newCreatePool,

    -- * Request Lenses
    createPool_clientToken,
    createPool_deletionProtectionEnabled,
    createPool_tags,
    createPool_originationIdentity,
    createPool_isoCountryCode,
    createPool_messageType,

    -- * Destructuring the Response
    CreatePoolResponse (..),
    newCreatePoolResponse,

    -- * Response Lenses
    createPoolResponse_createdTimestamp,
    createPoolResponse_deletionProtectionEnabled,
    createPoolResponse_messageType,
    createPoolResponse_optOutListName,
    createPoolResponse_poolArn,
    createPoolResponse_poolId,
    createPoolResponse_selfManagedOptOutsEnabled,
    createPoolResponse_sharedRoutesEnabled,
    createPoolResponse_status,
    createPoolResponse_tags,
    createPoolResponse_twoWayChannelArn,
    createPoolResponse_twoWayEnabled,
    createPoolResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.PinpointSmsVoiceV2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newCreatePool' smart constructor.
data CreatePool = CreatePool'
  { -- | Unique, case-sensitive identifier that you provide to ensure the
    -- idempotency of the request. If you don\'t specify a client token, a
    -- randomly generated token is used for the request to ensure idempotency.
    CreatePool -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
    -- | By default this is set to false. When set to true the pool can\'t be
    -- deleted. You can change this value using the UpdatePool action.
    CreatePool -> Maybe Bool
deletionProtectionEnabled :: Prelude.Maybe Prelude.Bool,
    -- | An array of tags (key and value pairs) associated with the pool.
    CreatePool -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
    -- | The origination identity to use such as a PhoneNumberId, PhoneNumberArn,
    -- SenderId or SenderIdArn. You can use DescribePhoneNumbers to find the
    -- values for PhoneNumberId and PhoneNumberArn while DescribeSenderIds can
    -- be used to get the values for SenderId and SenderIdArn.
    CreatePool -> Text
originationIdentity :: Prelude.Text,
    -- | The new two-character code, in ISO 3166-1 alpha-2 format, for the
    -- country or region of the new pool.
    CreatePool -> Text
isoCountryCode :: Prelude.Text,
    -- | The type of message. Valid values are TRANSACTIONAL for messages that
    -- are critical or time-sensitive and PROMOTIONAL for messages that aren\'t
    -- critical or time-sensitive.
    CreatePool -> MessageType
messageType :: MessageType
  }
  deriving (CreatePool -> CreatePool -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreatePool -> CreatePool -> Bool
$c/= :: CreatePool -> CreatePool -> Bool
== :: CreatePool -> CreatePool -> Bool
$c== :: CreatePool -> CreatePool -> Bool
Prelude.Eq, ReadPrec [CreatePool]
ReadPrec CreatePool
Int -> ReadS CreatePool
ReadS [CreatePool]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreatePool]
$creadListPrec :: ReadPrec [CreatePool]
readPrec :: ReadPrec CreatePool
$creadPrec :: ReadPrec CreatePool
readList :: ReadS [CreatePool]
$creadList :: ReadS [CreatePool]
readsPrec :: Int -> ReadS CreatePool
$creadsPrec :: Int -> ReadS CreatePool
Prelude.Read, Int -> CreatePool -> ShowS
[CreatePool] -> ShowS
CreatePool -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreatePool] -> ShowS
$cshowList :: [CreatePool] -> ShowS
show :: CreatePool -> String
$cshow :: CreatePool -> String
showsPrec :: Int -> CreatePool -> ShowS
$cshowsPrec :: Int -> CreatePool -> ShowS
Prelude.Show, forall x. Rep CreatePool x -> CreatePool
forall x. CreatePool -> Rep CreatePool x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreatePool x -> CreatePool
$cfrom :: forall x. CreatePool -> Rep CreatePool x
Prelude.Generic)

-- |
-- Create a value of 'CreatePool' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'clientToken', 'createPool_clientToken' - Unique, case-sensitive identifier that you provide to ensure the
-- idempotency of the request. If you don\'t specify a client token, a
-- randomly generated token is used for the request to ensure idempotency.
--
-- 'deletionProtectionEnabled', 'createPool_deletionProtectionEnabled' - By default this is set to false. When set to true the pool can\'t be
-- deleted. You can change this value using the UpdatePool action.
--
-- 'tags', 'createPool_tags' - An array of tags (key and value pairs) associated with the pool.
--
-- 'originationIdentity', 'createPool_originationIdentity' - The origination identity to use such as a PhoneNumberId, PhoneNumberArn,
-- SenderId or SenderIdArn. You can use DescribePhoneNumbers to find the
-- values for PhoneNumberId and PhoneNumberArn while DescribeSenderIds can
-- be used to get the values for SenderId and SenderIdArn.
--
-- 'isoCountryCode', 'createPool_isoCountryCode' - The new two-character code, in ISO 3166-1 alpha-2 format, for the
-- country or region of the new pool.
--
-- 'messageType', 'createPool_messageType' - The type of message. Valid values are TRANSACTIONAL for messages that
-- are critical or time-sensitive and PROMOTIONAL for messages that aren\'t
-- critical or time-sensitive.
newCreatePool ::
  -- | 'originationIdentity'
  Prelude.Text ->
  -- | 'isoCountryCode'
  Prelude.Text ->
  -- | 'messageType'
  MessageType ->
  CreatePool
newCreatePool :: Text -> Text -> MessageType -> CreatePool
newCreatePool
  Text
pOriginationIdentity_
  Text
pIsoCountryCode_
  MessageType
pMessageType_ =
    CreatePool'
      { $sel:clientToken:CreatePool' :: Maybe Text
clientToken = forall a. Maybe a
Prelude.Nothing,
        $sel:deletionProtectionEnabled:CreatePool' :: Maybe Bool
deletionProtectionEnabled = forall a. Maybe a
Prelude.Nothing,
        $sel:tags:CreatePool' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
        $sel:originationIdentity:CreatePool' :: Text
originationIdentity = Text
pOriginationIdentity_,
        $sel:isoCountryCode:CreatePool' :: Text
isoCountryCode = Text
pIsoCountryCode_,
        $sel:messageType:CreatePool' :: MessageType
messageType = MessageType
pMessageType_
      }

-- | Unique, case-sensitive identifier that you provide to ensure the
-- idempotency of the request. If you don\'t specify a client token, a
-- randomly generated token is used for the request to ensure idempotency.
createPool_clientToken :: Lens.Lens' CreatePool (Prelude.Maybe Prelude.Text)
createPool_clientToken :: Lens' CreatePool (Maybe Text)
createPool_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePool' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:CreatePool' :: CreatePool -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: CreatePool
s@CreatePool' {} Maybe Text
a -> CreatePool
s {$sel:clientToken:CreatePool' :: Maybe Text
clientToken = Maybe Text
a} :: CreatePool)

-- | By default this is set to false. When set to true the pool can\'t be
-- deleted. You can change this value using the UpdatePool action.
createPool_deletionProtectionEnabled :: Lens.Lens' CreatePool (Prelude.Maybe Prelude.Bool)
createPool_deletionProtectionEnabled :: Lens' CreatePool (Maybe Bool)
createPool_deletionProtectionEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePool' {Maybe Bool
deletionProtectionEnabled :: Maybe Bool
$sel:deletionProtectionEnabled:CreatePool' :: CreatePool -> Maybe Bool
deletionProtectionEnabled} -> Maybe Bool
deletionProtectionEnabled) (\s :: CreatePool
s@CreatePool' {} Maybe Bool
a -> CreatePool
s {$sel:deletionProtectionEnabled:CreatePool' :: Maybe Bool
deletionProtectionEnabled = Maybe Bool
a} :: CreatePool)

-- | An array of tags (key and value pairs) associated with the pool.
createPool_tags :: Lens.Lens' CreatePool (Prelude.Maybe [Tag])
createPool_tags :: Lens' CreatePool (Maybe [Tag])
createPool_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePool' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreatePool' :: CreatePool -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreatePool
s@CreatePool' {} Maybe [Tag]
a -> CreatePool
s {$sel:tags:CreatePool' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreatePool) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The origination identity to use such as a PhoneNumberId, PhoneNumberArn,
-- SenderId or SenderIdArn. You can use DescribePhoneNumbers to find the
-- values for PhoneNumberId and PhoneNumberArn while DescribeSenderIds can
-- be used to get the values for SenderId and SenderIdArn.
createPool_originationIdentity :: Lens.Lens' CreatePool Prelude.Text
createPool_originationIdentity :: Lens' CreatePool Text
createPool_originationIdentity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePool' {Text
originationIdentity :: Text
$sel:originationIdentity:CreatePool' :: CreatePool -> Text
originationIdentity} -> Text
originationIdentity) (\s :: CreatePool
s@CreatePool' {} Text
a -> CreatePool
s {$sel:originationIdentity:CreatePool' :: Text
originationIdentity = Text
a} :: CreatePool)

-- | The new two-character code, in ISO 3166-1 alpha-2 format, for the
-- country or region of the new pool.
createPool_isoCountryCode :: Lens.Lens' CreatePool Prelude.Text
createPool_isoCountryCode :: Lens' CreatePool Text
createPool_isoCountryCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePool' {Text
isoCountryCode :: Text
$sel:isoCountryCode:CreatePool' :: CreatePool -> Text
isoCountryCode} -> Text
isoCountryCode) (\s :: CreatePool
s@CreatePool' {} Text
a -> CreatePool
s {$sel:isoCountryCode:CreatePool' :: Text
isoCountryCode = Text
a} :: CreatePool)

-- | The type of message. Valid values are TRANSACTIONAL for messages that
-- are critical or time-sensitive and PROMOTIONAL for messages that aren\'t
-- critical or time-sensitive.
createPool_messageType :: Lens.Lens' CreatePool MessageType
createPool_messageType :: Lens' CreatePool MessageType
createPool_messageType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePool' {MessageType
messageType :: MessageType
$sel:messageType:CreatePool' :: CreatePool -> MessageType
messageType} -> MessageType
messageType) (\s :: CreatePool
s@CreatePool' {} MessageType
a -> CreatePool
s {$sel:messageType:CreatePool' :: MessageType
messageType = MessageType
a} :: CreatePool)

instance Core.AWSRequest CreatePool where
  type AWSResponse CreatePool = CreatePoolResponse
  request :: (Service -> Service) -> CreatePool -> Request CreatePool
request Service -> Service
overrides =
    forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreatePool
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreatePool)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
      ( \Int
s ResponseHeaders
h Object
x ->
          Maybe POSIX
-> Maybe Bool
-> Maybe MessageType
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe PoolStatus
-> Maybe [Tag]
-> Maybe Text
-> Maybe Bool
-> Int
-> CreatePoolResponse
CreatePoolResponse'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"CreatedTimestamp")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"DeletionProtectionEnabled")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"MessageType")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"OptOutListName")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"PoolArn")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"PoolId")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"SelfManagedOptOutsEnabled")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"SharedRoutesEnabled")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Status")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Tags" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"TwoWayChannelArn")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"TwoWayEnabled")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable CreatePool where
  hashWithSalt :: Int -> CreatePool -> Int
hashWithSalt Int
_salt CreatePool' {Maybe Bool
Maybe [Tag]
Maybe Text
Text
MessageType
messageType :: MessageType
isoCountryCode :: Text
originationIdentity :: Text
tags :: Maybe [Tag]
deletionProtectionEnabled :: Maybe Bool
clientToken :: Maybe Text
$sel:messageType:CreatePool' :: CreatePool -> MessageType
$sel:isoCountryCode:CreatePool' :: CreatePool -> Text
$sel:originationIdentity:CreatePool' :: CreatePool -> Text
$sel:tags:CreatePool' :: CreatePool -> Maybe [Tag]
$sel:deletionProtectionEnabled:CreatePool' :: CreatePool -> Maybe Bool
$sel:clientToken:CreatePool' :: CreatePool -> Maybe Text
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientToken
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
deletionProtectionEnabled
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
originationIdentity
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
isoCountryCode
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` MessageType
messageType

instance Prelude.NFData CreatePool where
  rnf :: CreatePool -> ()
rnf CreatePool' {Maybe Bool
Maybe [Tag]
Maybe Text
Text
MessageType
messageType :: MessageType
isoCountryCode :: Text
originationIdentity :: Text
tags :: Maybe [Tag]
deletionProtectionEnabled :: Maybe Bool
clientToken :: Maybe Text
$sel:messageType:CreatePool' :: CreatePool -> MessageType
$sel:isoCountryCode:CreatePool' :: CreatePool -> Text
$sel:originationIdentity:CreatePool' :: CreatePool -> Text
$sel:tags:CreatePool' :: CreatePool -> Maybe [Tag]
$sel:deletionProtectionEnabled:CreatePool' :: CreatePool -> Maybe Bool
$sel:clientToken:CreatePool' :: CreatePool -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
deletionProtectionEnabled
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
originationIdentity
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
isoCountryCode
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf MessageType
messageType

instance Data.ToHeaders CreatePool where
  toHeaders :: CreatePool -> ResponseHeaders
toHeaders =
    forall a b. a -> b -> a
Prelude.const
      ( forall a. Monoid a => [a] -> a
Prelude.mconcat
          [ HeaderName
"X-Amz-Target"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"PinpointSMSVoiceV2.CreatePool" ::
                          Prelude.ByteString
                      ),
            HeaderName
"Content-Type"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToJSON CreatePool where
  toJSON :: CreatePool -> Value
toJSON CreatePool' {Maybe Bool
Maybe [Tag]
Maybe Text
Text
MessageType
messageType :: MessageType
isoCountryCode :: Text
originationIdentity :: Text
tags :: Maybe [Tag]
deletionProtectionEnabled :: Maybe Bool
clientToken :: Maybe Text
$sel:messageType:CreatePool' :: CreatePool -> MessageType
$sel:isoCountryCode:CreatePool' :: CreatePool -> Text
$sel:originationIdentity:CreatePool' :: CreatePool -> Text
$sel:tags:CreatePool' :: CreatePool -> Maybe [Tag]
$sel:deletionProtectionEnabled:CreatePool' :: CreatePool -> Maybe Bool
$sel:clientToken:CreatePool' :: CreatePool -> Maybe Text
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"ClientToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
clientToken,
            (Key
"DeletionProtectionEnabled" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Bool
deletionProtectionEnabled,
            (Key
"Tags" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
            forall a. a -> Maybe a
Prelude.Just
              (Key
"OriginationIdentity" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
originationIdentity),
            forall a. a -> Maybe a
Prelude.Just
              (Key
"IsoCountryCode" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
isoCountryCode),
            forall a. a -> Maybe a
Prelude.Just (Key
"MessageType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= MessageType
messageType)
          ]
      )

instance Data.ToPath CreatePool where
  toPath :: CreatePool -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"

instance Data.ToQuery CreatePool where
  toQuery :: CreatePool -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newCreatePoolResponse' smart constructor.
data CreatePoolResponse = CreatePoolResponse'
  { -- | The time when the pool was created, in
    -- <https://www.epochconverter.com/ UNIX epoch time> format.
    CreatePoolResponse -> Maybe POSIX
createdTimestamp :: Prelude.Maybe Data.POSIX,
    -- | When set to true deletion protection is enabled. By default this is set
    -- to false.
    CreatePoolResponse -> Maybe Bool
deletionProtectionEnabled :: Prelude.Maybe Prelude.Bool,
    -- | The type of message for the pool to use.
    CreatePoolResponse -> Maybe MessageType
messageType :: Prelude.Maybe MessageType,
    -- | The name of the OptOutList associated with the pool.
    CreatePoolResponse -> Maybe Text
optOutListName :: Prelude.Maybe Prelude.Text,
    -- | The Amazon Resource Name (ARN) for the pool.
    CreatePoolResponse -> Maybe Text
poolArn :: Prelude.Maybe Prelude.Text,
    -- | The unique identifier for the pool.
    CreatePoolResponse -> Maybe Text
poolId :: Prelude.Maybe Prelude.Text,
    -- | By default this is set to false. When an end recipient sends a message
    -- that begins with HELP or STOP to one of your dedicated numbers, Amazon
    -- Pinpoint automatically replies with a customizable message and adds the
    -- end recipient to the OptOutList. When set to true you\'re responsible
    -- for responding to HELP and STOP requests. You\'re also responsible for
    -- tracking and honoring opt-out requests.
    CreatePoolResponse -> Maybe Bool
selfManagedOptOutsEnabled :: Prelude.Maybe Prelude.Bool,
    -- | Indicates whether shared routes are enabled for the pool.
    CreatePoolResponse -> Maybe Bool
sharedRoutesEnabled :: Prelude.Maybe Prelude.Bool,
    -- | The current status of the pool.
    --
    -- -   CREATING: The pool is currently being created and isn\'t yet
    --     available for use.
    --
    -- -   ACTIVE: The pool is active and available for use.
    --
    -- -   DELETING: The pool is being deleted.
    CreatePoolResponse -> Maybe PoolStatus
status :: Prelude.Maybe PoolStatus,
    -- | An array of tags (key and value pairs) associated with the pool.
    CreatePoolResponse -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
    -- | The Amazon Resource Name (ARN) of the two way channel.
    CreatePoolResponse -> Maybe Text
twoWayChannelArn :: Prelude.Maybe Prelude.Text,
    -- | By default this is set to false. When set to true you can receive
    -- incoming text messages from your end recipients.
    CreatePoolResponse -> Maybe Bool
twoWayEnabled :: Prelude.Maybe Prelude.Bool,
    -- | The response's http status code.
    CreatePoolResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (CreatePoolResponse -> CreatePoolResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreatePoolResponse -> CreatePoolResponse -> Bool
$c/= :: CreatePoolResponse -> CreatePoolResponse -> Bool
== :: CreatePoolResponse -> CreatePoolResponse -> Bool
$c== :: CreatePoolResponse -> CreatePoolResponse -> Bool
Prelude.Eq, ReadPrec [CreatePoolResponse]
ReadPrec CreatePoolResponse
Int -> ReadS CreatePoolResponse
ReadS [CreatePoolResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreatePoolResponse]
$creadListPrec :: ReadPrec [CreatePoolResponse]
readPrec :: ReadPrec CreatePoolResponse
$creadPrec :: ReadPrec CreatePoolResponse
readList :: ReadS [CreatePoolResponse]
$creadList :: ReadS [CreatePoolResponse]
readsPrec :: Int -> ReadS CreatePoolResponse
$creadsPrec :: Int -> ReadS CreatePoolResponse
Prelude.Read, Int -> CreatePoolResponse -> ShowS
[CreatePoolResponse] -> ShowS
CreatePoolResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreatePoolResponse] -> ShowS
$cshowList :: [CreatePoolResponse] -> ShowS
show :: CreatePoolResponse -> String
$cshow :: CreatePoolResponse -> String
showsPrec :: Int -> CreatePoolResponse -> ShowS
$cshowsPrec :: Int -> CreatePoolResponse -> ShowS
Prelude.Show, forall x. Rep CreatePoolResponse x -> CreatePoolResponse
forall x. CreatePoolResponse -> Rep CreatePoolResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreatePoolResponse x -> CreatePoolResponse
$cfrom :: forall x. CreatePoolResponse -> Rep CreatePoolResponse x
Prelude.Generic)

-- |
-- Create a value of 'CreatePoolResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'createdTimestamp', 'createPoolResponse_createdTimestamp' - The time when the pool was created, in
-- <https://www.epochconverter.com/ UNIX epoch time> format.
--
-- 'deletionProtectionEnabled', 'createPoolResponse_deletionProtectionEnabled' - When set to true deletion protection is enabled. By default this is set
-- to false.
--
-- 'messageType', 'createPoolResponse_messageType' - The type of message for the pool to use.
--
-- 'optOutListName', 'createPoolResponse_optOutListName' - The name of the OptOutList associated with the pool.
--
-- 'poolArn', 'createPoolResponse_poolArn' - The Amazon Resource Name (ARN) for the pool.
--
-- 'poolId', 'createPoolResponse_poolId' - The unique identifier for the pool.
--
-- 'selfManagedOptOutsEnabled', 'createPoolResponse_selfManagedOptOutsEnabled' - By default this is set to false. When an end recipient sends a message
-- that begins with HELP or STOP to one of your dedicated numbers, Amazon
-- Pinpoint automatically replies with a customizable message and adds the
-- end recipient to the OptOutList. When set to true you\'re responsible
-- for responding to HELP and STOP requests. You\'re also responsible for
-- tracking and honoring opt-out requests.
--
-- 'sharedRoutesEnabled', 'createPoolResponse_sharedRoutesEnabled' - Indicates whether shared routes are enabled for the pool.
--
-- 'status', 'createPoolResponse_status' - The current status of the pool.
--
-- -   CREATING: The pool is currently being created and isn\'t yet
--     available for use.
--
-- -   ACTIVE: The pool is active and available for use.
--
-- -   DELETING: The pool is being deleted.
--
-- 'tags', 'createPoolResponse_tags' - An array of tags (key and value pairs) associated with the pool.
--
-- 'twoWayChannelArn', 'createPoolResponse_twoWayChannelArn' - The Amazon Resource Name (ARN) of the two way channel.
--
-- 'twoWayEnabled', 'createPoolResponse_twoWayEnabled' - By default this is set to false. When set to true you can receive
-- incoming text messages from your end recipients.
--
-- 'httpStatus', 'createPoolResponse_httpStatus' - The response's http status code.
newCreatePoolResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  CreatePoolResponse
newCreatePoolResponse :: Int -> CreatePoolResponse
newCreatePoolResponse Int
pHttpStatus_ =
  CreatePoolResponse'
    { $sel:createdTimestamp:CreatePoolResponse' :: Maybe POSIX
createdTimestamp =
        forall a. Maybe a
Prelude.Nothing,
      $sel:deletionProtectionEnabled:CreatePoolResponse' :: Maybe Bool
deletionProtectionEnabled = forall a. Maybe a
Prelude.Nothing,
      $sel:messageType:CreatePoolResponse' :: Maybe MessageType
messageType = forall a. Maybe a
Prelude.Nothing,
      $sel:optOutListName:CreatePoolResponse' :: Maybe Text
optOutListName = forall a. Maybe a
Prelude.Nothing,
      $sel:poolArn:CreatePoolResponse' :: Maybe Text
poolArn = forall a. Maybe a
Prelude.Nothing,
      $sel:poolId:CreatePoolResponse' :: Maybe Text
poolId = forall a. Maybe a
Prelude.Nothing,
      $sel:selfManagedOptOutsEnabled:CreatePoolResponse' :: Maybe Bool
selfManagedOptOutsEnabled = forall a. Maybe a
Prelude.Nothing,
      $sel:sharedRoutesEnabled:CreatePoolResponse' :: Maybe Bool
sharedRoutesEnabled = forall a. Maybe a
Prelude.Nothing,
      $sel:status:CreatePoolResponse' :: Maybe PoolStatus
status = forall a. Maybe a
Prelude.Nothing,
      $sel:tags:CreatePoolResponse' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
      $sel:twoWayChannelArn:CreatePoolResponse' :: Maybe Text
twoWayChannelArn = forall a. Maybe a
Prelude.Nothing,
      $sel:twoWayEnabled:CreatePoolResponse' :: Maybe Bool
twoWayEnabled = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:CreatePoolResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The time when the pool was created, in
-- <https://www.epochconverter.com/ UNIX epoch time> format.
createPoolResponse_createdTimestamp :: Lens.Lens' CreatePoolResponse (Prelude.Maybe Prelude.UTCTime)
createPoolResponse_createdTimestamp :: Lens' CreatePoolResponse (Maybe UTCTime)
createPoolResponse_createdTimestamp = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePoolResponse' {Maybe POSIX
createdTimestamp :: Maybe POSIX
$sel:createdTimestamp:CreatePoolResponse' :: CreatePoolResponse -> Maybe POSIX
createdTimestamp} -> Maybe POSIX
createdTimestamp) (\s :: CreatePoolResponse
s@CreatePoolResponse' {} Maybe POSIX
a -> CreatePoolResponse
s {$sel:createdTimestamp:CreatePoolResponse' :: Maybe POSIX
createdTimestamp = Maybe POSIX
a} :: CreatePoolResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time

-- | When set to true deletion protection is enabled. By default this is set
-- to false.
createPoolResponse_deletionProtectionEnabled :: Lens.Lens' CreatePoolResponse (Prelude.Maybe Prelude.Bool)
createPoolResponse_deletionProtectionEnabled :: Lens' CreatePoolResponse (Maybe Bool)
createPoolResponse_deletionProtectionEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePoolResponse' {Maybe Bool
deletionProtectionEnabled :: Maybe Bool
$sel:deletionProtectionEnabled:CreatePoolResponse' :: CreatePoolResponse -> Maybe Bool
deletionProtectionEnabled} -> Maybe Bool
deletionProtectionEnabled) (\s :: CreatePoolResponse
s@CreatePoolResponse' {} Maybe Bool
a -> CreatePoolResponse
s {$sel:deletionProtectionEnabled:CreatePoolResponse' :: Maybe Bool
deletionProtectionEnabled = Maybe Bool
a} :: CreatePoolResponse)

-- | The type of message for the pool to use.
createPoolResponse_messageType :: Lens.Lens' CreatePoolResponse (Prelude.Maybe MessageType)
createPoolResponse_messageType :: Lens' CreatePoolResponse (Maybe MessageType)
createPoolResponse_messageType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePoolResponse' {Maybe MessageType
messageType :: Maybe MessageType
$sel:messageType:CreatePoolResponse' :: CreatePoolResponse -> Maybe MessageType
messageType} -> Maybe MessageType
messageType) (\s :: CreatePoolResponse
s@CreatePoolResponse' {} Maybe MessageType
a -> CreatePoolResponse
s {$sel:messageType:CreatePoolResponse' :: Maybe MessageType
messageType = Maybe MessageType
a} :: CreatePoolResponse)

-- | The name of the OptOutList associated with the pool.
createPoolResponse_optOutListName :: Lens.Lens' CreatePoolResponse (Prelude.Maybe Prelude.Text)
createPoolResponse_optOutListName :: Lens' CreatePoolResponse (Maybe Text)
createPoolResponse_optOutListName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePoolResponse' {Maybe Text
optOutListName :: Maybe Text
$sel:optOutListName:CreatePoolResponse' :: CreatePoolResponse -> Maybe Text
optOutListName} -> Maybe Text
optOutListName) (\s :: CreatePoolResponse
s@CreatePoolResponse' {} Maybe Text
a -> CreatePoolResponse
s {$sel:optOutListName:CreatePoolResponse' :: Maybe Text
optOutListName = Maybe Text
a} :: CreatePoolResponse)

-- | The Amazon Resource Name (ARN) for the pool.
createPoolResponse_poolArn :: Lens.Lens' CreatePoolResponse (Prelude.Maybe Prelude.Text)
createPoolResponse_poolArn :: Lens' CreatePoolResponse (Maybe Text)
createPoolResponse_poolArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePoolResponse' {Maybe Text
poolArn :: Maybe Text
$sel:poolArn:CreatePoolResponse' :: CreatePoolResponse -> Maybe Text
poolArn} -> Maybe Text
poolArn) (\s :: CreatePoolResponse
s@CreatePoolResponse' {} Maybe Text
a -> CreatePoolResponse
s {$sel:poolArn:CreatePoolResponse' :: Maybe Text
poolArn = Maybe Text
a} :: CreatePoolResponse)

-- | The unique identifier for the pool.
createPoolResponse_poolId :: Lens.Lens' CreatePoolResponse (Prelude.Maybe Prelude.Text)
createPoolResponse_poolId :: Lens' CreatePoolResponse (Maybe Text)
createPoolResponse_poolId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePoolResponse' {Maybe Text
poolId :: Maybe Text
$sel:poolId:CreatePoolResponse' :: CreatePoolResponse -> Maybe Text
poolId} -> Maybe Text
poolId) (\s :: CreatePoolResponse
s@CreatePoolResponse' {} Maybe Text
a -> CreatePoolResponse
s {$sel:poolId:CreatePoolResponse' :: Maybe Text
poolId = Maybe Text
a} :: CreatePoolResponse)

-- | By default this is set to false. When an end recipient sends a message
-- that begins with HELP or STOP to one of your dedicated numbers, Amazon
-- Pinpoint automatically replies with a customizable message and adds the
-- end recipient to the OptOutList. When set to true you\'re responsible
-- for responding to HELP and STOP requests. You\'re also responsible for
-- tracking and honoring opt-out requests.
createPoolResponse_selfManagedOptOutsEnabled :: Lens.Lens' CreatePoolResponse (Prelude.Maybe Prelude.Bool)
createPoolResponse_selfManagedOptOutsEnabled :: Lens' CreatePoolResponse (Maybe Bool)
createPoolResponse_selfManagedOptOutsEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePoolResponse' {Maybe Bool
selfManagedOptOutsEnabled :: Maybe Bool
$sel:selfManagedOptOutsEnabled:CreatePoolResponse' :: CreatePoolResponse -> Maybe Bool
selfManagedOptOutsEnabled} -> Maybe Bool
selfManagedOptOutsEnabled) (\s :: CreatePoolResponse
s@CreatePoolResponse' {} Maybe Bool
a -> CreatePoolResponse
s {$sel:selfManagedOptOutsEnabled:CreatePoolResponse' :: Maybe Bool
selfManagedOptOutsEnabled = Maybe Bool
a} :: CreatePoolResponse)

-- | Indicates whether shared routes are enabled for the pool.
createPoolResponse_sharedRoutesEnabled :: Lens.Lens' CreatePoolResponse (Prelude.Maybe Prelude.Bool)
createPoolResponse_sharedRoutesEnabled :: Lens' CreatePoolResponse (Maybe Bool)
createPoolResponse_sharedRoutesEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePoolResponse' {Maybe Bool
sharedRoutesEnabled :: Maybe Bool
$sel:sharedRoutesEnabled:CreatePoolResponse' :: CreatePoolResponse -> Maybe Bool
sharedRoutesEnabled} -> Maybe Bool
sharedRoutesEnabled) (\s :: CreatePoolResponse
s@CreatePoolResponse' {} Maybe Bool
a -> CreatePoolResponse
s {$sel:sharedRoutesEnabled:CreatePoolResponse' :: Maybe Bool
sharedRoutesEnabled = Maybe Bool
a} :: CreatePoolResponse)

-- | The current status of the pool.
--
-- -   CREATING: The pool is currently being created and isn\'t yet
--     available for use.
--
-- -   ACTIVE: The pool is active and available for use.
--
-- -   DELETING: The pool is being deleted.
createPoolResponse_status :: Lens.Lens' CreatePoolResponse (Prelude.Maybe PoolStatus)
createPoolResponse_status :: Lens' CreatePoolResponse (Maybe PoolStatus)
createPoolResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePoolResponse' {Maybe PoolStatus
status :: Maybe PoolStatus
$sel:status:CreatePoolResponse' :: CreatePoolResponse -> Maybe PoolStatus
status} -> Maybe PoolStatus
status) (\s :: CreatePoolResponse
s@CreatePoolResponse' {} Maybe PoolStatus
a -> CreatePoolResponse
s {$sel:status:CreatePoolResponse' :: Maybe PoolStatus
status = Maybe PoolStatus
a} :: CreatePoolResponse)

-- | An array of tags (key and value pairs) associated with the pool.
createPoolResponse_tags :: Lens.Lens' CreatePoolResponse (Prelude.Maybe [Tag])
createPoolResponse_tags :: Lens' CreatePoolResponse (Maybe [Tag])
createPoolResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePoolResponse' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreatePoolResponse' :: CreatePoolResponse -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreatePoolResponse
s@CreatePoolResponse' {} Maybe [Tag]
a -> CreatePoolResponse
s {$sel:tags:CreatePoolResponse' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreatePoolResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The Amazon Resource Name (ARN) of the two way channel.
createPoolResponse_twoWayChannelArn :: Lens.Lens' CreatePoolResponse (Prelude.Maybe Prelude.Text)
createPoolResponse_twoWayChannelArn :: Lens' CreatePoolResponse (Maybe Text)
createPoolResponse_twoWayChannelArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePoolResponse' {Maybe Text
twoWayChannelArn :: Maybe Text
$sel:twoWayChannelArn:CreatePoolResponse' :: CreatePoolResponse -> Maybe Text
twoWayChannelArn} -> Maybe Text
twoWayChannelArn) (\s :: CreatePoolResponse
s@CreatePoolResponse' {} Maybe Text
a -> CreatePoolResponse
s {$sel:twoWayChannelArn:CreatePoolResponse' :: Maybe Text
twoWayChannelArn = Maybe Text
a} :: CreatePoolResponse)

-- | By default this is set to false. When set to true you can receive
-- incoming text messages from your end recipients.
createPoolResponse_twoWayEnabled :: Lens.Lens' CreatePoolResponse (Prelude.Maybe Prelude.Bool)
createPoolResponse_twoWayEnabled :: Lens' CreatePoolResponse (Maybe Bool)
createPoolResponse_twoWayEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePoolResponse' {Maybe Bool
twoWayEnabled :: Maybe Bool
$sel:twoWayEnabled:CreatePoolResponse' :: CreatePoolResponse -> Maybe Bool
twoWayEnabled} -> Maybe Bool
twoWayEnabled) (\s :: CreatePoolResponse
s@CreatePoolResponse' {} Maybe Bool
a -> CreatePoolResponse
s {$sel:twoWayEnabled:CreatePoolResponse' :: Maybe Bool
twoWayEnabled = Maybe Bool
a} :: CreatePoolResponse)

-- | The response's http status code.
createPoolResponse_httpStatus :: Lens.Lens' CreatePoolResponse Prelude.Int
createPoolResponse_httpStatus :: Lens' CreatePoolResponse Int
createPoolResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePoolResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreatePoolResponse' :: CreatePoolResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreatePoolResponse
s@CreatePoolResponse' {} Int
a -> CreatePoolResponse
s {$sel:httpStatus:CreatePoolResponse' :: Int
httpStatus = Int
a} :: CreatePoolResponse)

instance Prelude.NFData CreatePoolResponse where
  rnf :: CreatePoolResponse -> ()
rnf CreatePoolResponse' {Int
Maybe Bool
Maybe [Tag]
Maybe Text
Maybe POSIX
Maybe MessageType
Maybe PoolStatus
httpStatus :: Int
twoWayEnabled :: Maybe Bool
twoWayChannelArn :: Maybe Text
tags :: Maybe [Tag]
status :: Maybe PoolStatus
sharedRoutesEnabled :: Maybe Bool
selfManagedOptOutsEnabled :: Maybe Bool
poolId :: Maybe Text
poolArn :: Maybe Text
optOutListName :: Maybe Text
messageType :: Maybe MessageType
deletionProtectionEnabled :: Maybe Bool
createdTimestamp :: Maybe POSIX
$sel:httpStatus:CreatePoolResponse' :: CreatePoolResponse -> Int
$sel:twoWayEnabled:CreatePoolResponse' :: CreatePoolResponse -> Maybe Bool
$sel:twoWayChannelArn:CreatePoolResponse' :: CreatePoolResponse -> Maybe Text
$sel:tags:CreatePoolResponse' :: CreatePoolResponse -> Maybe [Tag]
$sel:status:CreatePoolResponse' :: CreatePoolResponse -> Maybe PoolStatus
$sel:sharedRoutesEnabled:CreatePoolResponse' :: CreatePoolResponse -> Maybe Bool
$sel:selfManagedOptOutsEnabled:CreatePoolResponse' :: CreatePoolResponse -> Maybe Bool
$sel:poolId:CreatePoolResponse' :: CreatePoolResponse -> Maybe Text
$sel:poolArn:CreatePoolResponse' :: CreatePoolResponse -> Maybe Text
$sel:optOutListName:CreatePoolResponse' :: CreatePoolResponse -> Maybe Text
$sel:messageType:CreatePoolResponse' :: CreatePoolResponse -> Maybe MessageType
$sel:deletionProtectionEnabled:CreatePoolResponse' :: CreatePoolResponse -> Maybe Bool
$sel:createdTimestamp:CreatePoolResponse' :: CreatePoolResponse -> Maybe POSIX
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
createdTimestamp
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
deletionProtectionEnabled
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe MessageType
messageType
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
optOutListName
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
poolArn
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
poolId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
selfManagedOptOutsEnabled
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
sharedRoutesEnabled
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PoolStatus
status
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
twoWayChannelArn
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
twoWayEnabled
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus