{-# 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 #-}
module Amazonka.SNS.DeleteSMSSandboxPhoneNumber
(
DeleteSMSSandboxPhoneNumber (..),
newDeleteSMSSandboxPhoneNumber,
deleteSMSSandboxPhoneNumber_phoneNumber,
DeleteSMSSandboxPhoneNumberResponse (..),
newDeleteSMSSandboxPhoneNumberResponse,
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
data DeleteSMSSandboxPhoneNumber = DeleteSMSSandboxPhoneNumber'
{
DeleteSMSSandboxPhoneNumber -> Text
phoneNumber :: Prelude.Text
}
deriving (DeleteSMSSandboxPhoneNumber -> DeleteSMSSandboxPhoneNumber -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteSMSSandboxPhoneNumber -> DeleteSMSSandboxPhoneNumber -> Bool
$c/= :: DeleteSMSSandboxPhoneNumber -> DeleteSMSSandboxPhoneNumber -> Bool
== :: DeleteSMSSandboxPhoneNumber -> DeleteSMSSandboxPhoneNumber -> Bool
$c== :: DeleteSMSSandboxPhoneNumber -> DeleteSMSSandboxPhoneNumber -> Bool
Prelude.Eq, ReadPrec [DeleteSMSSandboxPhoneNumber]
ReadPrec DeleteSMSSandboxPhoneNumber
Int -> ReadS DeleteSMSSandboxPhoneNumber
ReadS [DeleteSMSSandboxPhoneNumber]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteSMSSandboxPhoneNumber]
$creadListPrec :: ReadPrec [DeleteSMSSandboxPhoneNumber]
readPrec :: ReadPrec DeleteSMSSandboxPhoneNumber
$creadPrec :: ReadPrec DeleteSMSSandboxPhoneNumber
readList :: ReadS [DeleteSMSSandboxPhoneNumber]
$creadList :: ReadS [DeleteSMSSandboxPhoneNumber]
readsPrec :: Int -> ReadS DeleteSMSSandboxPhoneNumber
$creadsPrec :: Int -> ReadS DeleteSMSSandboxPhoneNumber
Prelude.Read, Int -> DeleteSMSSandboxPhoneNumber -> ShowS
[DeleteSMSSandboxPhoneNumber] -> ShowS
DeleteSMSSandboxPhoneNumber -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteSMSSandboxPhoneNumber] -> ShowS
$cshowList :: [DeleteSMSSandboxPhoneNumber] -> ShowS
show :: DeleteSMSSandboxPhoneNumber -> String
$cshow :: DeleteSMSSandboxPhoneNumber -> String
showsPrec :: Int -> DeleteSMSSandboxPhoneNumber -> ShowS
$cshowsPrec :: Int -> DeleteSMSSandboxPhoneNumber -> ShowS
Prelude.Show, 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
$cto :: forall x.
Rep DeleteSMSSandboxPhoneNumber x -> DeleteSMSSandboxPhoneNumber
$cfrom :: forall x.
DeleteSMSSandboxPhoneNumber -> Rep DeleteSMSSandboxPhoneNumber x
Prelude.Generic)
newDeleteSMSSandboxPhoneNumber ::
Prelude.Text ->
DeleteSMSSandboxPhoneNumber
newDeleteSMSSandboxPhoneNumber :: Text -> DeleteSMSSandboxPhoneNumber
newDeleteSMSSandboxPhoneNumber Text
pPhoneNumber_ =
DeleteSMSSandboxPhoneNumber'
{ $sel:phoneNumber:DeleteSMSSandboxPhoneNumber' :: Text
phoneNumber =
Text
pPhoneNumber_
}
deleteSMSSandboxPhoneNumber_phoneNumber :: Lens.Lens' DeleteSMSSandboxPhoneNumber Prelude.Text
deleteSMSSandboxPhoneNumber_phoneNumber :: Lens' DeleteSMSSandboxPhoneNumber Text
deleteSMSSandboxPhoneNumber_phoneNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSMSSandboxPhoneNumber' {Text
phoneNumber :: Text
$sel:phoneNumber:DeleteSMSSandboxPhoneNumber' :: DeleteSMSSandboxPhoneNumber -> Text
phoneNumber} -> Text
phoneNumber) (\s :: DeleteSMSSandboxPhoneNumber
s@DeleteSMSSandboxPhoneNumber' {} Text
a -> DeleteSMSSandboxPhoneNumber
s {$sel:phoneNumber:DeleteSMSSandboxPhoneNumber' :: Text
phoneNumber = Text
a} :: DeleteSMSSandboxPhoneNumber)
instance Core.AWSRequest DeleteSMSSandboxPhoneNumber where
type
AWSResponse DeleteSMSSandboxPhoneNumber =
DeleteSMSSandboxPhoneNumberResponse
request :: (Service -> Service)
-> DeleteSMSSandboxPhoneNumber
-> Request DeleteSMSSandboxPhoneNumber
request Service -> Service
overrides =
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 =
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'
forall (f :: * -> *) a b. Functor 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 DeleteSMSSandboxPhoneNumber where
hashWithSalt :: Int -> DeleteSMSSandboxPhoneNumber -> Int
hashWithSalt Int
_salt DeleteSMSSandboxPhoneNumber' {Text
phoneNumber :: Text
$sel:phoneNumber:DeleteSMSSandboxPhoneNumber' :: DeleteSMSSandboxPhoneNumber -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
phoneNumber
instance Prelude.NFData DeleteSMSSandboxPhoneNumber where
rnf :: DeleteSMSSandboxPhoneNumber -> ()
rnf DeleteSMSSandboxPhoneNumber' {Text
phoneNumber :: Text
$sel:phoneNumber:DeleteSMSSandboxPhoneNumber' :: DeleteSMSSandboxPhoneNumber -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
phoneNumber
instance Data.ToHeaders DeleteSMSSandboxPhoneNumber where
toHeaders :: DeleteSMSSandboxPhoneNumber -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeleteSMSSandboxPhoneNumber where
toPath :: DeleteSMSSandboxPhoneNumber -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteSMSSandboxPhoneNumber where
toQuery :: DeleteSMSSandboxPhoneNumber -> QueryString
toQuery DeleteSMSSandboxPhoneNumber' {Text
phoneNumber :: Text
$sel:phoneNumber:DeleteSMSSandboxPhoneNumber' :: DeleteSMSSandboxPhoneNumber -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DeleteSMSSandboxPhoneNumber" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-03-31" :: Prelude.ByteString),
ByteString
"PhoneNumber" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
phoneNumber
]
data DeleteSMSSandboxPhoneNumberResponse = DeleteSMSSandboxPhoneNumberResponse'
{
DeleteSMSSandboxPhoneNumberResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteSMSSandboxPhoneNumberResponse
-> DeleteSMSSandboxPhoneNumberResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteSMSSandboxPhoneNumberResponse
-> DeleteSMSSandboxPhoneNumberResponse -> Bool
$c/= :: DeleteSMSSandboxPhoneNumberResponse
-> DeleteSMSSandboxPhoneNumberResponse -> Bool
== :: DeleteSMSSandboxPhoneNumberResponse
-> DeleteSMSSandboxPhoneNumberResponse -> Bool
$c== :: DeleteSMSSandboxPhoneNumberResponse
-> DeleteSMSSandboxPhoneNumberResponse -> Bool
Prelude.Eq, ReadPrec [DeleteSMSSandboxPhoneNumberResponse]
ReadPrec DeleteSMSSandboxPhoneNumberResponse
Int -> ReadS DeleteSMSSandboxPhoneNumberResponse
ReadS [DeleteSMSSandboxPhoneNumberResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteSMSSandboxPhoneNumberResponse]
$creadListPrec :: ReadPrec [DeleteSMSSandboxPhoneNumberResponse]
readPrec :: ReadPrec DeleteSMSSandboxPhoneNumberResponse
$creadPrec :: ReadPrec DeleteSMSSandboxPhoneNumberResponse
readList :: ReadS [DeleteSMSSandboxPhoneNumberResponse]
$creadList :: ReadS [DeleteSMSSandboxPhoneNumberResponse]
readsPrec :: Int -> ReadS DeleteSMSSandboxPhoneNumberResponse
$creadsPrec :: Int -> ReadS DeleteSMSSandboxPhoneNumberResponse
Prelude.Read, Int -> DeleteSMSSandboxPhoneNumberResponse -> ShowS
[DeleteSMSSandboxPhoneNumberResponse] -> ShowS
DeleteSMSSandboxPhoneNumberResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteSMSSandboxPhoneNumberResponse] -> ShowS
$cshowList :: [DeleteSMSSandboxPhoneNumberResponse] -> ShowS
show :: DeleteSMSSandboxPhoneNumberResponse -> String
$cshow :: DeleteSMSSandboxPhoneNumberResponse -> String
showsPrec :: Int -> DeleteSMSSandboxPhoneNumberResponse -> ShowS
$cshowsPrec :: Int -> DeleteSMSSandboxPhoneNumberResponse -> ShowS
Prelude.Show, 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
$cto :: forall x.
Rep DeleteSMSSandboxPhoneNumberResponse x
-> DeleteSMSSandboxPhoneNumberResponse
$cfrom :: forall x.
DeleteSMSSandboxPhoneNumberResponse
-> Rep DeleteSMSSandboxPhoneNumberResponse x
Prelude.Generic)
newDeleteSMSSandboxPhoneNumberResponse ::
Prelude.Int ->
DeleteSMSSandboxPhoneNumberResponse
newDeleteSMSSandboxPhoneNumberResponse :: Int -> DeleteSMSSandboxPhoneNumberResponse
newDeleteSMSSandboxPhoneNumberResponse Int
pHttpStatus_ =
DeleteSMSSandboxPhoneNumberResponse'
{ $sel:httpStatus:DeleteSMSSandboxPhoneNumberResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deleteSMSSandboxPhoneNumberResponse_httpStatus :: Lens.Lens' DeleteSMSSandboxPhoneNumberResponse Prelude.Int
deleteSMSSandboxPhoneNumberResponse_httpStatus :: Lens' DeleteSMSSandboxPhoneNumberResponse Int
deleteSMSSandboxPhoneNumberResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSMSSandboxPhoneNumberResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteSMSSandboxPhoneNumberResponse' :: DeleteSMSSandboxPhoneNumberResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteSMSSandboxPhoneNumberResponse
s@DeleteSMSSandboxPhoneNumberResponse' {} Int
a -> DeleteSMSSandboxPhoneNumberResponse
s {$sel:httpStatus:DeleteSMSSandboxPhoneNumberResponse' :: Int
httpStatus = Int
a} :: DeleteSMSSandboxPhoneNumberResponse)
instance
Prelude.NFData
DeleteSMSSandboxPhoneNumberResponse
where
rnf :: DeleteSMSSandboxPhoneNumberResponse -> ()
rnf DeleteSMSSandboxPhoneNumberResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteSMSSandboxPhoneNumberResponse' :: DeleteSMSSandboxPhoneNumberResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus