{-# 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.SMS.DeleteAppValidationConfiguration
(
DeleteAppValidationConfiguration (..),
newDeleteAppValidationConfiguration,
deleteAppValidationConfiguration_appId,
DeleteAppValidationConfigurationResponse (..),
newDeleteAppValidationConfigurationResponse,
deleteAppValidationConfigurationResponse_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.SMS.Types
data DeleteAppValidationConfiguration = DeleteAppValidationConfiguration'
{
DeleteAppValidationConfiguration -> Text
appId :: Prelude.Text
}
deriving (DeleteAppValidationConfiguration
-> DeleteAppValidationConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteAppValidationConfiguration
-> DeleteAppValidationConfiguration -> Bool
$c/= :: DeleteAppValidationConfiguration
-> DeleteAppValidationConfiguration -> Bool
== :: DeleteAppValidationConfiguration
-> DeleteAppValidationConfiguration -> Bool
$c== :: DeleteAppValidationConfiguration
-> DeleteAppValidationConfiguration -> Bool
Prelude.Eq, ReadPrec [DeleteAppValidationConfiguration]
ReadPrec DeleteAppValidationConfiguration
Int -> ReadS DeleteAppValidationConfiguration
ReadS [DeleteAppValidationConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteAppValidationConfiguration]
$creadListPrec :: ReadPrec [DeleteAppValidationConfiguration]
readPrec :: ReadPrec DeleteAppValidationConfiguration
$creadPrec :: ReadPrec DeleteAppValidationConfiguration
readList :: ReadS [DeleteAppValidationConfiguration]
$creadList :: ReadS [DeleteAppValidationConfiguration]
readsPrec :: Int -> ReadS DeleteAppValidationConfiguration
$creadsPrec :: Int -> ReadS DeleteAppValidationConfiguration
Prelude.Read, Int -> DeleteAppValidationConfiguration -> ShowS
[DeleteAppValidationConfiguration] -> ShowS
DeleteAppValidationConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteAppValidationConfiguration] -> ShowS
$cshowList :: [DeleteAppValidationConfiguration] -> ShowS
show :: DeleteAppValidationConfiguration -> String
$cshow :: DeleteAppValidationConfiguration -> String
showsPrec :: Int -> DeleteAppValidationConfiguration -> ShowS
$cshowsPrec :: Int -> DeleteAppValidationConfiguration -> ShowS
Prelude.Show, forall x.
Rep DeleteAppValidationConfiguration x
-> DeleteAppValidationConfiguration
forall x.
DeleteAppValidationConfiguration
-> Rep DeleteAppValidationConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteAppValidationConfiguration x
-> DeleteAppValidationConfiguration
$cfrom :: forall x.
DeleteAppValidationConfiguration
-> Rep DeleteAppValidationConfiguration x
Prelude.Generic)
newDeleteAppValidationConfiguration ::
Prelude.Text ->
DeleteAppValidationConfiguration
newDeleteAppValidationConfiguration :: Text -> DeleteAppValidationConfiguration
newDeleteAppValidationConfiguration Text
pAppId_ =
DeleteAppValidationConfiguration' {$sel:appId:DeleteAppValidationConfiguration' :: Text
appId = Text
pAppId_}
deleteAppValidationConfiguration_appId :: Lens.Lens' DeleteAppValidationConfiguration Prelude.Text
deleteAppValidationConfiguration_appId :: Lens' DeleteAppValidationConfiguration Text
deleteAppValidationConfiguration_appId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteAppValidationConfiguration' {Text
appId :: Text
$sel:appId:DeleteAppValidationConfiguration' :: DeleteAppValidationConfiguration -> Text
appId} -> Text
appId) (\s :: DeleteAppValidationConfiguration
s@DeleteAppValidationConfiguration' {} Text
a -> DeleteAppValidationConfiguration
s {$sel:appId:DeleteAppValidationConfiguration' :: Text
appId = Text
a} :: DeleteAppValidationConfiguration)
instance
Core.AWSRequest
DeleteAppValidationConfiguration
where
type
AWSResponse DeleteAppValidationConfiguration =
DeleteAppValidationConfigurationResponse
request :: (Service -> Service)
-> DeleteAppValidationConfiguration
-> Request DeleteAppValidationConfiguration
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 DeleteAppValidationConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteAppValidationConfiguration)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> DeleteAppValidationConfigurationResponse
DeleteAppValidationConfigurationResponse'
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
DeleteAppValidationConfiguration
where
hashWithSalt :: Int -> DeleteAppValidationConfiguration -> Int
hashWithSalt
Int
_salt
DeleteAppValidationConfiguration' {Text
appId :: Text
$sel:appId:DeleteAppValidationConfiguration' :: DeleteAppValidationConfiguration -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
appId
instance
Prelude.NFData
DeleteAppValidationConfiguration
where
rnf :: DeleteAppValidationConfiguration -> ()
rnf DeleteAppValidationConfiguration' {Text
appId :: Text
$sel:appId:DeleteAppValidationConfiguration' :: DeleteAppValidationConfiguration -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
appId
instance
Data.ToHeaders
DeleteAppValidationConfiguration
where
toHeaders :: DeleteAppValidationConfiguration -> 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
"AWSServerMigrationService_V2016_10_24.DeleteAppValidationConfiguration" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DeleteAppValidationConfiguration where
toJSON :: DeleteAppValidationConfiguration -> Value
toJSON DeleteAppValidationConfiguration' {Text
appId :: Text
$sel:appId:DeleteAppValidationConfiguration' :: DeleteAppValidationConfiguration -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"appId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
appId)]
)
instance Data.ToPath DeleteAppValidationConfiguration where
toPath :: DeleteAppValidationConfiguration -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DeleteAppValidationConfiguration
where
toQuery :: DeleteAppValidationConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteAppValidationConfigurationResponse = DeleteAppValidationConfigurationResponse'
{
DeleteAppValidationConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteAppValidationConfigurationResponse
-> DeleteAppValidationConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteAppValidationConfigurationResponse
-> DeleteAppValidationConfigurationResponse -> Bool
$c/= :: DeleteAppValidationConfigurationResponse
-> DeleteAppValidationConfigurationResponse -> Bool
== :: DeleteAppValidationConfigurationResponse
-> DeleteAppValidationConfigurationResponse -> Bool
$c== :: DeleteAppValidationConfigurationResponse
-> DeleteAppValidationConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [DeleteAppValidationConfigurationResponse]
ReadPrec DeleteAppValidationConfigurationResponse
Int -> ReadS DeleteAppValidationConfigurationResponse
ReadS [DeleteAppValidationConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteAppValidationConfigurationResponse]
$creadListPrec :: ReadPrec [DeleteAppValidationConfigurationResponse]
readPrec :: ReadPrec DeleteAppValidationConfigurationResponse
$creadPrec :: ReadPrec DeleteAppValidationConfigurationResponse
readList :: ReadS [DeleteAppValidationConfigurationResponse]
$creadList :: ReadS [DeleteAppValidationConfigurationResponse]
readsPrec :: Int -> ReadS DeleteAppValidationConfigurationResponse
$creadsPrec :: Int -> ReadS DeleteAppValidationConfigurationResponse
Prelude.Read, Int -> DeleteAppValidationConfigurationResponse -> ShowS
[DeleteAppValidationConfigurationResponse] -> ShowS
DeleteAppValidationConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteAppValidationConfigurationResponse] -> ShowS
$cshowList :: [DeleteAppValidationConfigurationResponse] -> ShowS
show :: DeleteAppValidationConfigurationResponse -> String
$cshow :: DeleteAppValidationConfigurationResponse -> String
showsPrec :: Int -> DeleteAppValidationConfigurationResponse -> ShowS
$cshowsPrec :: Int -> DeleteAppValidationConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteAppValidationConfigurationResponse x
-> DeleteAppValidationConfigurationResponse
forall x.
DeleteAppValidationConfigurationResponse
-> Rep DeleteAppValidationConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteAppValidationConfigurationResponse x
-> DeleteAppValidationConfigurationResponse
$cfrom :: forall x.
DeleteAppValidationConfigurationResponse
-> Rep DeleteAppValidationConfigurationResponse x
Prelude.Generic)
newDeleteAppValidationConfigurationResponse ::
Prelude.Int ->
DeleteAppValidationConfigurationResponse
newDeleteAppValidationConfigurationResponse :: Int -> DeleteAppValidationConfigurationResponse
newDeleteAppValidationConfigurationResponse
Int
pHttpStatus_ =
DeleteAppValidationConfigurationResponse'
{ $sel:httpStatus:DeleteAppValidationConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deleteAppValidationConfigurationResponse_httpStatus :: Lens.Lens' DeleteAppValidationConfigurationResponse Prelude.Int
deleteAppValidationConfigurationResponse_httpStatus :: Lens' DeleteAppValidationConfigurationResponse Int
deleteAppValidationConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteAppValidationConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteAppValidationConfigurationResponse' :: DeleteAppValidationConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteAppValidationConfigurationResponse
s@DeleteAppValidationConfigurationResponse' {} Int
a -> DeleteAppValidationConfigurationResponse
s {$sel:httpStatus:DeleteAppValidationConfigurationResponse' :: Int
httpStatus = Int
a} :: DeleteAppValidationConfigurationResponse)
instance
Prelude.NFData
DeleteAppValidationConfigurationResponse
where
rnf :: DeleteAppValidationConfigurationResponse -> ()
rnf DeleteAppValidationConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteAppValidationConfigurationResponse' :: DeleteAppValidationConfigurationResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus