{-# 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.SNS.DeleteSMSSandboxPhoneNumber
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Deletes an Amazon Web Services account\'s verified or pending phone
-- number from the SMS sandbox.
--
-- When you start using Amazon SNS to send SMS messages, your Amazon Web
-- Services account is in the /SMS sandbox/. The SMS sandbox provides a
-- safe environment for you to try Amazon SNS features without risking your
-- reputation as an SMS sender. While your Amazon Web Services account is
-- in the SMS sandbox, you can use all of the features of Amazon SNS.
-- However, you can send SMS messages only to verified destination phone
-- numbers. For more information, including how to move out of the sandbox
-- to send messages without restrictions, see
-- <https://docs.aws.amazon.com/sns/latest/dg/sns-sms-sandbox.html SMS sandbox>
-- in the /Amazon SNS Developer Guide/.
module Amazonka.SNS.DeleteSMSSandboxPhoneNumber
  ( -- * Creating a Request
    DeleteSMSSandboxPhoneNumber (..),
    newDeleteSMSSandboxPhoneNumber,

    -- * Request Lenses
    deleteSMSSandboxPhoneNumber_phoneNumber,

    -- * Destructuring the Response
    DeleteSMSSandboxPhoneNumberResponse (..),
    newDeleteSMSSandboxPhoneNumberResponse,

    -- * Response Lenses
    deleteSMSSandboxPhoneNumberResponse_httpStatus,
  )
where

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

-- | /See:/ 'newDeleteSMSSandboxPhoneNumber' smart constructor.
data DeleteSMSSandboxPhoneNumber = DeleteSMSSandboxPhoneNumber'
  { -- | The destination phone number to delete.
    DeleteSMSSandboxPhoneNumber -> Text
phoneNumber :: Prelude.Text
  }
  deriving (DeleteSMSSandboxPhoneNumber -> DeleteSMSSandboxPhoneNumber -> Bool
(DeleteSMSSandboxPhoneNumber
 -> DeleteSMSSandboxPhoneNumber -> Bool)
-> (DeleteSMSSandboxPhoneNumber
    -> DeleteSMSSandboxPhoneNumber -> Bool)
-> Eq DeleteSMSSandboxPhoneNumber
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DeleteSMSSandboxPhoneNumber -> DeleteSMSSandboxPhoneNumber -> Bool
== :: DeleteSMSSandboxPhoneNumber -> DeleteSMSSandboxPhoneNumber -> Bool
$c/= :: DeleteSMSSandboxPhoneNumber -> DeleteSMSSandboxPhoneNumber -> Bool
/= :: DeleteSMSSandboxPhoneNumber -> DeleteSMSSandboxPhoneNumber -> Bool
Prelude.Eq, ReadPrec [DeleteSMSSandboxPhoneNumber]
ReadPrec DeleteSMSSandboxPhoneNumber
Int -> ReadS DeleteSMSSandboxPhoneNumber
ReadS [DeleteSMSSandboxPhoneNumber]
(Int -> ReadS DeleteSMSSandboxPhoneNumber)
-> ReadS [DeleteSMSSandboxPhoneNumber]
-> ReadPrec DeleteSMSSandboxPhoneNumber
-> ReadPrec [DeleteSMSSandboxPhoneNumber]
-> Read DeleteSMSSandboxPhoneNumber
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS DeleteSMSSandboxPhoneNumber
readsPrec :: Int -> ReadS DeleteSMSSandboxPhoneNumber
$creadList :: ReadS [DeleteSMSSandboxPhoneNumber]
readList :: ReadS [DeleteSMSSandboxPhoneNumber]
$creadPrec :: ReadPrec DeleteSMSSandboxPhoneNumber
readPrec :: ReadPrec DeleteSMSSandboxPhoneNumber
$creadListPrec :: ReadPrec [DeleteSMSSandboxPhoneNumber]
readListPrec :: ReadPrec [DeleteSMSSandboxPhoneNumber]
Prelude.Read, Int -> DeleteSMSSandboxPhoneNumber -> ShowS
[DeleteSMSSandboxPhoneNumber] -> ShowS
DeleteSMSSandboxPhoneNumber -> String
(Int -> DeleteSMSSandboxPhoneNumber -> ShowS)
-> (DeleteSMSSandboxPhoneNumber -> String)
-> ([DeleteSMSSandboxPhoneNumber] -> ShowS)
-> Show DeleteSMSSandboxPhoneNumber
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DeleteSMSSandboxPhoneNumber -> ShowS
showsPrec :: Int -> DeleteSMSSandboxPhoneNumber -> ShowS
$cshow :: DeleteSMSSandboxPhoneNumber -> String
show :: DeleteSMSSandboxPhoneNumber -> String
$cshowList :: [DeleteSMSSandboxPhoneNumber] -> ShowS
showList :: [DeleteSMSSandboxPhoneNumber] -> ShowS
Prelude.Show, (forall x.
 DeleteSMSSandboxPhoneNumber -> Rep DeleteSMSSandboxPhoneNumber x)
-> (forall x.
    Rep DeleteSMSSandboxPhoneNumber x -> DeleteSMSSandboxPhoneNumber)
-> Generic DeleteSMSSandboxPhoneNumber
forall x.
Rep DeleteSMSSandboxPhoneNumber x -> DeleteSMSSandboxPhoneNumber
forall x.
DeleteSMSSandboxPhoneNumber -> Rep DeleteSMSSandboxPhoneNumber x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
DeleteSMSSandboxPhoneNumber -> Rep DeleteSMSSandboxPhoneNumber x
from :: forall x.
DeleteSMSSandboxPhoneNumber -> Rep DeleteSMSSandboxPhoneNumber x
$cto :: forall x.
Rep DeleteSMSSandboxPhoneNumber x -> DeleteSMSSandboxPhoneNumber
to :: forall x.
Rep DeleteSMSSandboxPhoneNumber x -> DeleteSMSSandboxPhoneNumber
Prelude.Generic)

-- |
-- Create a value of 'DeleteSMSSandboxPhoneNumber' 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:
--
-- 'phoneNumber', 'deleteSMSSandboxPhoneNumber_phoneNumber' - The destination phone number to delete.
newDeleteSMSSandboxPhoneNumber ::
  -- | 'phoneNumber'
  Prelude.Text ->
  DeleteSMSSandboxPhoneNumber
newDeleteSMSSandboxPhoneNumber :: Text -> DeleteSMSSandboxPhoneNumber
newDeleteSMSSandboxPhoneNumber Text
pPhoneNumber_ =
  DeleteSMSSandboxPhoneNumber'
    { phoneNumber :: Text
phoneNumber =
        Text
pPhoneNumber_
    }

-- | The destination phone number to delete.
deleteSMSSandboxPhoneNumber_phoneNumber :: Lens.Lens' DeleteSMSSandboxPhoneNumber Prelude.Text
deleteSMSSandboxPhoneNumber_phoneNumber :: Lens' DeleteSMSSandboxPhoneNumber Text
deleteSMSSandboxPhoneNumber_phoneNumber = (DeleteSMSSandboxPhoneNumber -> Text)
-> (DeleteSMSSandboxPhoneNumber
    -> Text -> DeleteSMSSandboxPhoneNumber)
-> Lens' DeleteSMSSandboxPhoneNumber Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSMSSandboxPhoneNumber' {Text
phoneNumber :: DeleteSMSSandboxPhoneNumber -> Text
phoneNumber :: Text
phoneNumber} -> Text
phoneNumber) (\s :: DeleteSMSSandboxPhoneNumber
s@DeleteSMSSandboxPhoneNumber' {} Text
a -> DeleteSMSSandboxPhoneNumber
s {phoneNumber = a} :: DeleteSMSSandboxPhoneNumber)

instance Core.AWSRequest DeleteSMSSandboxPhoneNumber where
  type
    AWSResponse DeleteSMSSandboxPhoneNumber =
      DeleteSMSSandboxPhoneNumberResponse
  request :: (Service -> Service)
-> DeleteSMSSandboxPhoneNumber
-> Request DeleteSMSSandboxPhoneNumber
request Service -> Service
overrides =
    Service
-> DeleteSMSSandboxPhoneNumber
-> Request DeleteSMSSandboxPhoneNumber
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteSMSSandboxPhoneNumber
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse DeleteSMSSandboxPhoneNumber)))
response =
    Text
-> (Int
    -> ResponseHeaders
    -> [Node]
    -> Either String (AWSResponse DeleteSMSSandboxPhoneNumber))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteSMSSandboxPhoneNumber
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse DeleteSMSSandboxPhoneNumber)))
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
    -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
      Text
"DeleteSMSSandboxPhoneNumberResult"
      ( \Int
s ResponseHeaders
h [Node]
x ->
          Int -> DeleteSMSSandboxPhoneNumberResponse
DeleteSMSSandboxPhoneNumberResponse'
            (Int -> DeleteSMSSandboxPhoneNumberResponse)
-> Either String Int
-> Either String DeleteSMSSandboxPhoneNumberResponse
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Int -> Either String Int
forall a. a -> Either String a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable DeleteSMSSandboxPhoneNumber where
  hashWithSalt :: Int -> DeleteSMSSandboxPhoneNumber -> Int
hashWithSalt Int
_salt DeleteSMSSandboxPhoneNumber' {Text
phoneNumber :: DeleteSMSSandboxPhoneNumber -> Text
phoneNumber :: Text
..} =
    Int
_salt Int -> Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
phoneNumber

instance Prelude.NFData DeleteSMSSandboxPhoneNumber where
  rnf :: DeleteSMSSandboxPhoneNumber -> ()
rnf DeleteSMSSandboxPhoneNumber' {Text
phoneNumber :: DeleteSMSSandboxPhoneNumber -> Text
phoneNumber :: Text
..} =
    Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Text
phoneNumber

instance Data.ToHeaders DeleteSMSSandboxPhoneNumber where
  toHeaders :: DeleteSMSSandboxPhoneNumber -> ResponseHeaders
toHeaders = ResponseHeaders -> DeleteSMSSandboxPhoneNumber -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty

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

instance Data.ToQuery DeleteSMSSandboxPhoneNumber where
  toQuery :: DeleteSMSSandboxPhoneNumber -> QueryString
toQuery DeleteSMSSandboxPhoneNumber' {Text
phoneNumber :: DeleteSMSSandboxPhoneNumber -> Text
phoneNumber :: Text
..} =
    [QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ ByteString
"Action"
          ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DeleteSMSSandboxPhoneNumber" ::
                      Prelude.ByteString
                  ),
        ByteString
"Version"
          ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-03-31" :: Prelude.ByteString),
        ByteString
"PhoneNumber" ByteString -> Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
phoneNumber
      ]

-- | /See:/ 'newDeleteSMSSandboxPhoneNumberResponse' smart constructor.
data DeleteSMSSandboxPhoneNumberResponse = DeleteSMSSandboxPhoneNumberResponse'
  { -- | The response's http status code.
    DeleteSMSSandboxPhoneNumberResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (DeleteSMSSandboxPhoneNumberResponse
-> DeleteSMSSandboxPhoneNumberResponse -> Bool
(DeleteSMSSandboxPhoneNumberResponse
 -> DeleteSMSSandboxPhoneNumberResponse -> Bool)
-> (DeleteSMSSandboxPhoneNumberResponse
    -> DeleteSMSSandboxPhoneNumberResponse -> Bool)
-> Eq DeleteSMSSandboxPhoneNumberResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DeleteSMSSandboxPhoneNumberResponse
-> DeleteSMSSandboxPhoneNumberResponse -> Bool
== :: DeleteSMSSandboxPhoneNumberResponse
-> DeleteSMSSandboxPhoneNumberResponse -> Bool
$c/= :: DeleteSMSSandboxPhoneNumberResponse
-> DeleteSMSSandboxPhoneNumberResponse -> Bool
/= :: DeleteSMSSandboxPhoneNumberResponse
-> DeleteSMSSandboxPhoneNumberResponse -> Bool
Prelude.Eq, ReadPrec [DeleteSMSSandboxPhoneNumberResponse]
ReadPrec DeleteSMSSandboxPhoneNumberResponse
Int -> ReadS DeleteSMSSandboxPhoneNumberResponse
ReadS [DeleteSMSSandboxPhoneNumberResponse]
(Int -> ReadS DeleteSMSSandboxPhoneNumberResponse)
-> ReadS [DeleteSMSSandboxPhoneNumberResponse]
-> ReadPrec DeleteSMSSandboxPhoneNumberResponse
-> ReadPrec [DeleteSMSSandboxPhoneNumberResponse]
-> Read DeleteSMSSandboxPhoneNumberResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS DeleteSMSSandboxPhoneNumberResponse
readsPrec :: Int -> ReadS DeleteSMSSandboxPhoneNumberResponse
$creadList :: ReadS [DeleteSMSSandboxPhoneNumberResponse]
readList :: ReadS [DeleteSMSSandboxPhoneNumberResponse]
$creadPrec :: ReadPrec DeleteSMSSandboxPhoneNumberResponse
readPrec :: ReadPrec DeleteSMSSandboxPhoneNumberResponse
$creadListPrec :: ReadPrec [DeleteSMSSandboxPhoneNumberResponse]
readListPrec :: ReadPrec [DeleteSMSSandboxPhoneNumberResponse]
Prelude.Read, Int -> DeleteSMSSandboxPhoneNumberResponse -> ShowS
[DeleteSMSSandboxPhoneNumberResponse] -> ShowS
DeleteSMSSandboxPhoneNumberResponse -> String
(Int -> DeleteSMSSandboxPhoneNumberResponse -> ShowS)
-> (DeleteSMSSandboxPhoneNumberResponse -> String)
-> ([DeleteSMSSandboxPhoneNumberResponse] -> ShowS)
-> Show DeleteSMSSandboxPhoneNumberResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DeleteSMSSandboxPhoneNumberResponse -> ShowS
showsPrec :: Int -> DeleteSMSSandboxPhoneNumberResponse -> ShowS
$cshow :: DeleteSMSSandboxPhoneNumberResponse -> String
show :: DeleteSMSSandboxPhoneNumberResponse -> String
$cshowList :: [DeleteSMSSandboxPhoneNumberResponse] -> ShowS
showList :: [DeleteSMSSandboxPhoneNumberResponse] -> ShowS
Prelude.Show, (forall x.
 DeleteSMSSandboxPhoneNumberResponse
 -> Rep DeleteSMSSandboxPhoneNumberResponse x)
-> (forall x.
    Rep DeleteSMSSandboxPhoneNumberResponse x
    -> DeleteSMSSandboxPhoneNumberResponse)
-> Generic DeleteSMSSandboxPhoneNumberResponse
forall x.
Rep DeleteSMSSandboxPhoneNumberResponse x
-> DeleteSMSSandboxPhoneNumberResponse
forall x.
DeleteSMSSandboxPhoneNumberResponse
-> Rep DeleteSMSSandboxPhoneNumberResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
DeleteSMSSandboxPhoneNumberResponse
-> Rep DeleteSMSSandboxPhoneNumberResponse x
from :: forall x.
DeleteSMSSandboxPhoneNumberResponse
-> Rep DeleteSMSSandboxPhoneNumberResponse x
$cto :: forall x.
Rep DeleteSMSSandboxPhoneNumberResponse x
-> DeleteSMSSandboxPhoneNumberResponse
to :: forall x.
Rep DeleteSMSSandboxPhoneNumberResponse x
-> DeleteSMSSandboxPhoneNumberResponse
Prelude.Generic)

-- |
-- Create a value of 'DeleteSMSSandboxPhoneNumberResponse' 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:
--
-- 'httpStatus', 'deleteSMSSandboxPhoneNumberResponse_httpStatus' - The response's http status code.
newDeleteSMSSandboxPhoneNumberResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  DeleteSMSSandboxPhoneNumberResponse
newDeleteSMSSandboxPhoneNumberResponse :: Int -> DeleteSMSSandboxPhoneNumberResponse
newDeleteSMSSandboxPhoneNumberResponse Int
pHttpStatus_ =
  DeleteSMSSandboxPhoneNumberResponse'
    { httpStatus :: Int
httpStatus =
        Int
pHttpStatus_
    }

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

instance
  Prelude.NFData
    DeleteSMSSandboxPhoneNumberResponse
  where
  rnf :: DeleteSMSSandboxPhoneNumberResponse -> ()
rnf DeleteSMSSandboxPhoneNumberResponse' {Int
httpStatus :: DeleteSMSSandboxPhoneNumberResponse -> Int
httpStatus :: Int
..} =
    Int -> ()
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus