{-# 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.VerifySMSSandboxPhoneNumber
(
VerifySMSSandboxPhoneNumber (..),
newVerifySMSSandboxPhoneNumber,
verifySMSSandboxPhoneNumber_phoneNumber,
verifySMSSandboxPhoneNumber_oneTimePassword,
VerifySMSSandboxPhoneNumberResponse (..),
newVerifySMSSandboxPhoneNumberResponse,
verifySMSSandboxPhoneNumberResponse_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 VerifySMSSandboxPhoneNumber = VerifySMSSandboxPhoneNumber'
{
VerifySMSSandboxPhoneNumber -> Text
phoneNumber :: Prelude.Text,
VerifySMSSandboxPhoneNumber -> Text
oneTimePassword :: Prelude.Text
}
deriving (VerifySMSSandboxPhoneNumber -> VerifySMSSandboxPhoneNumber -> Bool
(VerifySMSSandboxPhoneNumber
-> VerifySMSSandboxPhoneNumber -> Bool)
-> (VerifySMSSandboxPhoneNumber
-> VerifySMSSandboxPhoneNumber -> Bool)
-> Eq VerifySMSSandboxPhoneNumber
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: VerifySMSSandboxPhoneNumber -> VerifySMSSandboxPhoneNumber -> Bool
== :: VerifySMSSandboxPhoneNumber -> VerifySMSSandboxPhoneNumber -> Bool
$c/= :: VerifySMSSandboxPhoneNumber -> VerifySMSSandboxPhoneNumber -> Bool
/= :: VerifySMSSandboxPhoneNumber -> VerifySMSSandboxPhoneNumber -> Bool
Prelude.Eq, ReadPrec [VerifySMSSandboxPhoneNumber]
ReadPrec VerifySMSSandboxPhoneNumber
Int -> ReadS VerifySMSSandboxPhoneNumber
ReadS [VerifySMSSandboxPhoneNumber]
(Int -> ReadS VerifySMSSandboxPhoneNumber)
-> ReadS [VerifySMSSandboxPhoneNumber]
-> ReadPrec VerifySMSSandboxPhoneNumber
-> ReadPrec [VerifySMSSandboxPhoneNumber]
-> Read VerifySMSSandboxPhoneNumber
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS VerifySMSSandboxPhoneNumber
readsPrec :: Int -> ReadS VerifySMSSandboxPhoneNumber
$creadList :: ReadS [VerifySMSSandboxPhoneNumber]
readList :: ReadS [VerifySMSSandboxPhoneNumber]
$creadPrec :: ReadPrec VerifySMSSandboxPhoneNumber
readPrec :: ReadPrec VerifySMSSandboxPhoneNumber
$creadListPrec :: ReadPrec [VerifySMSSandboxPhoneNumber]
readListPrec :: ReadPrec [VerifySMSSandboxPhoneNumber]
Prelude.Read, Int -> VerifySMSSandboxPhoneNumber -> ShowS
[VerifySMSSandboxPhoneNumber] -> ShowS
VerifySMSSandboxPhoneNumber -> String
(Int -> VerifySMSSandboxPhoneNumber -> ShowS)
-> (VerifySMSSandboxPhoneNumber -> String)
-> ([VerifySMSSandboxPhoneNumber] -> ShowS)
-> Show VerifySMSSandboxPhoneNumber
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> VerifySMSSandboxPhoneNumber -> ShowS
showsPrec :: Int -> VerifySMSSandboxPhoneNumber -> ShowS
$cshow :: VerifySMSSandboxPhoneNumber -> String
show :: VerifySMSSandboxPhoneNumber -> String
$cshowList :: [VerifySMSSandboxPhoneNumber] -> ShowS
showList :: [VerifySMSSandboxPhoneNumber] -> ShowS
Prelude.Show, (forall x.
VerifySMSSandboxPhoneNumber -> Rep VerifySMSSandboxPhoneNumber x)
-> (forall x.
Rep VerifySMSSandboxPhoneNumber x -> VerifySMSSandboxPhoneNumber)
-> Generic VerifySMSSandboxPhoneNumber
forall x.
Rep VerifySMSSandboxPhoneNumber x -> VerifySMSSandboxPhoneNumber
forall x.
VerifySMSSandboxPhoneNumber -> Rep VerifySMSSandboxPhoneNumber x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
VerifySMSSandboxPhoneNumber -> Rep VerifySMSSandboxPhoneNumber x
from :: forall x.
VerifySMSSandboxPhoneNumber -> Rep VerifySMSSandboxPhoneNumber x
$cto :: forall x.
Rep VerifySMSSandboxPhoneNumber x -> VerifySMSSandboxPhoneNumber
to :: forall x.
Rep VerifySMSSandboxPhoneNumber x -> VerifySMSSandboxPhoneNumber
Prelude.Generic)
newVerifySMSSandboxPhoneNumber ::
Prelude.Text ->
Prelude.Text ->
VerifySMSSandboxPhoneNumber
newVerifySMSSandboxPhoneNumber :: Text -> Text -> VerifySMSSandboxPhoneNumber
newVerifySMSSandboxPhoneNumber
Text
pPhoneNumber_
Text
pOneTimePassword_ =
VerifySMSSandboxPhoneNumber'
{ phoneNumber :: Text
phoneNumber =
Text
pPhoneNumber_,
oneTimePassword :: Text
oneTimePassword = Text
pOneTimePassword_
}
verifySMSSandboxPhoneNumber_phoneNumber :: Lens.Lens' VerifySMSSandboxPhoneNumber Prelude.Text
verifySMSSandboxPhoneNumber_phoneNumber :: Lens' VerifySMSSandboxPhoneNumber Text
verifySMSSandboxPhoneNumber_phoneNumber = (VerifySMSSandboxPhoneNumber -> Text)
-> (VerifySMSSandboxPhoneNumber
-> Text -> VerifySMSSandboxPhoneNumber)
-> Lens' VerifySMSSandboxPhoneNumber Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\VerifySMSSandboxPhoneNumber' {Text
phoneNumber :: VerifySMSSandboxPhoneNumber -> Text
phoneNumber :: Text
phoneNumber} -> Text
phoneNumber) (\s :: VerifySMSSandboxPhoneNumber
s@VerifySMSSandboxPhoneNumber' {} Text
a -> VerifySMSSandboxPhoneNumber
s {phoneNumber = a} :: VerifySMSSandboxPhoneNumber)
verifySMSSandboxPhoneNumber_oneTimePassword :: Lens.Lens' VerifySMSSandboxPhoneNumber Prelude.Text
verifySMSSandboxPhoneNumber_oneTimePassword :: Lens' VerifySMSSandboxPhoneNumber Text
verifySMSSandboxPhoneNumber_oneTimePassword = (VerifySMSSandboxPhoneNumber -> Text)
-> (VerifySMSSandboxPhoneNumber
-> Text -> VerifySMSSandboxPhoneNumber)
-> Lens' VerifySMSSandboxPhoneNumber Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\VerifySMSSandboxPhoneNumber' {Text
oneTimePassword :: VerifySMSSandboxPhoneNumber -> Text
oneTimePassword :: Text
oneTimePassword} -> Text
oneTimePassword) (\s :: VerifySMSSandboxPhoneNumber
s@VerifySMSSandboxPhoneNumber' {} Text
a -> VerifySMSSandboxPhoneNumber
s {oneTimePassword = a} :: VerifySMSSandboxPhoneNumber)
instance Core.AWSRequest VerifySMSSandboxPhoneNumber where
type
AWSResponse VerifySMSSandboxPhoneNumber =
VerifySMSSandboxPhoneNumberResponse
request :: (Service -> Service)
-> VerifySMSSandboxPhoneNumber
-> Request VerifySMSSandboxPhoneNumber
request Service -> Service
overrides =
Service
-> VerifySMSSandboxPhoneNumber
-> Request VerifySMSSandboxPhoneNumber
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 VerifySMSSandboxPhoneNumber
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse VerifySMSSandboxPhoneNumber)))
response =
Text
-> (Int
-> ResponseHeaders
-> [Node]
-> Either String (AWSResponse VerifySMSSandboxPhoneNumber))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy VerifySMSSandboxPhoneNumber
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse VerifySMSSandboxPhoneNumber)))
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
"VerifySMSSandboxPhoneNumberResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Int -> VerifySMSSandboxPhoneNumberResponse
VerifySMSSandboxPhoneNumberResponse'
(Int -> VerifySMSSandboxPhoneNumberResponse)
-> Either String Int
-> Either String VerifySMSSandboxPhoneNumberResponse
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 VerifySMSSandboxPhoneNumber where
hashWithSalt :: Int -> VerifySMSSandboxPhoneNumber -> Int
hashWithSalt Int
_salt VerifySMSSandboxPhoneNumber' {Text
phoneNumber :: VerifySMSSandboxPhoneNumber -> Text
oneTimePassword :: VerifySMSSandboxPhoneNumber -> Text
phoneNumber :: Text
oneTimePassword :: Text
..} =
Int
_salt
Int -> Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
phoneNumber
Int -> Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
oneTimePassword
instance Prelude.NFData VerifySMSSandboxPhoneNumber where
rnf :: VerifySMSSandboxPhoneNumber -> ()
rnf VerifySMSSandboxPhoneNumber' {Text
phoneNumber :: VerifySMSSandboxPhoneNumber -> Text
oneTimePassword :: VerifySMSSandboxPhoneNumber -> Text
phoneNumber :: Text
oneTimePassword :: Text
..} =
Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Text
phoneNumber () -> () -> ()
forall a b. a -> b -> b
`Prelude.seq`
Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Text
oneTimePassword
instance Data.ToHeaders VerifySMSSandboxPhoneNumber where
toHeaders :: VerifySMSSandboxPhoneNumber -> ResponseHeaders
toHeaders = ResponseHeaders -> VerifySMSSandboxPhoneNumber -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath VerifySMSSandboxPhoneNumber where
toPath :: VerifySMSSandboxPhoneNumber -> ByteString
toPath = ByteString -> VerifySMSSandboxPhoneNumber -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery VerifySMSSandboxPhoneNumber where
toQuery :: VerifySMSSandboxPhoneNumber -> QueryString
toQuery VerifySMSSandboxPhoneNumber' {Text
phoneNumber :: VerifySMSSandboxPhoneNumber -> Text
oneTimePassword :: VerifySMSSandboxPhoneNumber -> Text
phoneNumber :: Text
oneTimePassword :: 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
"VerifySMSSandboxPhoneNumber" ::
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,
ByteString
"OneTimePassword" ByteString -> Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
oneTimePassword
]
data VerifySMSSandboxPhoneNumberResponse = VerifySMSSandboxPhoneNumberResponse'
{
VerifySMSSandboxPhoneNumberResponse -> Int
httpStatus :: Prelude.Int
}
deriving (VerifySMSSandboxPhoneNumberResponse
-> VerifySMSSandboxPhoneNumberResponse -> Bool
(VerifySMSSandboxPhoneNumberResponse
-> VerifySMSSandboxPhoneNumberResponse -> Bool)
-> (VerifySMSSandboxPhoneNumberResponse
-> VerifySMSSandboxPhoneNumberResponse -> Bool)
-> Eq VerifySMSSandboxPhoneNumberResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: VerifySMSSandboxPhoneNumberResponse
-> VerifySMSSandboxPhoneNumberResponse -> Bool
== :: VerifySMSSandboxPhoneNumberResponse
-> VerifySMSSandboxPhoneNumberResponse -> Bool
$c/= :: VerifySMSSandboxPhoneNumberResponse
-> VerifySMSSandboxPhoneNumberResponse -> Bool
/= :: VerifySMSSandboxPhoneNumberResponse
-> VerifySMSSandboxPhoneNumberResponse -> Bool
Prelude.Eq, ReadPrec [VerifySMSSandboxPhoneNumberResponse]
ReadPrec VerifySMSSandboxPhoneNumberResponse
Int -> ReadS VerifySMSSandboxPhoneNumberResponse
ReadS [VerifySMSSandboxPhoneNumberResponse]
(Int -> ReadS VerifySMSSandboxPhoneNumberResponse)
-> ReadS [VerifySMSSandboxPhoneNumberResponse]
-> ReadPrec VerifySMSSandboxPhoneNumberResponse
-> ReadPrec [VerifySMSSandboxPhoneNumberResponse]
-> Read VerifySMSSandboxPhoneNumberResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS VerifySMSSandboxPhoneNumberResponse
readsPrec :: Int -> ReadS VerifySMSSandboxPhoneNumberResponse
$creadList :: ReadS [VerifySMSSandboxPhoneNumberResponse]
readList :: ReadS [VerifySMSSandboxPhoneNumberResponse]
$creadPrec :: ReadPrec VerifySMSSandboxPhoneNumberResponse
readPrec :: ReadPrec VerifySMSSandboxPhoneNumberResponse
$creadListPrec :: ReadPrec [VerifySMSSandboxPhoneNumberResponse]
readListPrec :: ReadPrec [VerifySMSSandboxPhoneNumberResponse]
Prelude.Read, Int -> VerifySMSSandboxPhoneNumberResponse -> ShowS
[VerifySMSSandboxPhoneNumberResponse] -> ShowS
VerifySMSSandboxPhoneNumberResponse -> String
(Int -> VerifySMSSandboxPhoneNumberResponse -> ShowS)
-> (VerifySMSSandboxPhoneNumberResponse -> String)
-> ([VerifySMSSandboxPhoneNumberResponse] -> ShowS)
-> Show VerifySMSSandboxPhoneNumberResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> VerifySMSSandboxPhoneNumberResponse -> ShowS
showsPrec :: Int -> VerifySMSSandboxPhoneNumberResponse -> ShowS
$cshow :: VerifySMSSandboxPhoneNumberResponse -> String
show :: VerifySMSSandboxPhoneNumberResponse -> String
$cshowList :: [VerifySMSSandboxPhoneNumberResponse] -> ShowS
showList :: [VerifySMSSandboxPhoneNumberResponse] -> ShowS
Prelude.Show, (forall x.
VerifySMSSandboxPhoneNumberResponse
-> Rep VerifySMSSandboxPhoneNumberResponse x)
-> (forall x.
Rep VerifySMSSandboxPhoneNumberResponse x
-> VerifySMSSandboxPhoneNumberResponse)
-> Generic VerifySMSSandboxPhoneNumberResponse
forall x.
Rep VerifySMSSandboxPhoneNumberResponse x
-> VerifySMSSandboxPhoneNumberResponse
forall x.
VerifySMSSandboxPhoneNumberResponse
-> Rep VerifySMSSandboxPhoneNumberResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
VerifySMSSandboxPhoneNumberResponse
-> Rep VerifySMSSandboxPhoneNumberResponse x
from :: forall x.
VerifySMSSandboxPhoneNumberResponse
-> Rep VerifySMSSandboxPhoneNumberResponse x
$cto :: forall x.
Rep VerifySMSSandboxPhoneNumberResponse x
-> VerifySMSSandboxPhoneNumberResponse
to :: forall x.
Rep VerifySMSSandboxPhoneNumberResponse x
-> VerifySMSSandboxPhoneNumberResponse
Prelude.Generic)
newVerifySMSSandboxPhoneNumberResponse ::
Prelude.Int ->
VerifySMSSandboxPhoneNumberResponse
newVerifySMSSandboxPhoneNumberResponse :: Int -> VerifySMSSandboxPhoneNumberResponse
newVerifySMSSandboxPhoneNumberResponse Int
pHttpStatus_ =
VerifySMSSandboxPhoneNumberResponse'
{ httpStatus :: Int
httpStatus =
Int
pHttpStatus_
}
verifySMSSandboxPhoneNumberResponse_httpStatus :: Lens.Lens' VerifySMSSandboxPhoneNumberResponse Prelude.Int
verifySMSSandboxPhoneNumberResponse_httpStatus :: Lens' VerifySMSSandboxPhoneNumberResponse Int
verifySMSSandboxPhoneNumberResponse_httpStatus = (VerifySMSSandboxPhoneNumberResponse -> Int)
-> (VerifySMSSandboxPhoneNumberResponse
-> Int -> VerifySMSSandboxPhoneNumberResponse)
-> Lens' VerifySMSSandboxPhoneNumberResponse Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\VerifySMSSandboxPhoneNumberResponse' {Int
httpStatus :: VerifySMSSandboxPhoneNumberResponse -> Int
httpStatus :: Int
httpStatus} -> Int
httpStatus) (\s :: VerifySMSSandboxPhoneNumberResponse
s@VerifySMSSandboxPhoneNumberResponse' {} Int
a -> VerifySMSSandboxPhoneNumberResponse
s {httpStatus = a} :: VerifySMSSandboxPhoneNumberResponse)
instance
Prelude.NFData
VerifySMSSandboxPhoneNumberResponse
where
rnf :: VerifySMSSandboxPhoneNumberResponse -> ()
rnf VerifySMSSandboxPhoneNumberResponse' {Int
httpStatus :: VerifySMSSandboxPhoneNumberResponse -> Int
httpStatus :: Int
..} =
Int -> ()
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus