{-# 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.SSM.DeleteOpsMetadata
(
DeleteOpsMetadata (..),
newDeleteOpsMetadata,
deleteOpsMetadata_opsMetadataArn,
DeleteOpsMetadataResponse (..),
newDeleteOpsMetadataResponse,
deleteOpsMetadataResponse_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.SSM.Types
data DeleteOpsMetadata = DeleteOpsMetadata'
{
DeleteOpsMetadata -> Text
opsMetadataArn :: Prelude.Text
}
deriving (DeleteOpsMetadata -> DeleteOpsMetadata -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteOpsMetadata -> DeleteOpsMetadata -> Bool
$c/= :: DeleteOpsMetadata -> DeleteOpsMetadata -> Bool
== :: DeleteOpsMetadata -> DeleteOpsMetadata -> Bool
$c== :: DeleteOpsMetadata -> DeleteOpsMetadata -> Bool
Prelude.Eq, ReadPrec [DeleteOpsMetadata]
ReadPrec DeleteOpsMetadata
Int -> ReadS DeleteOpsMetadata
ReadS [DeleteOpsMetadata]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteOpsMetadata]
$creadListPrec :: ReadPrec [DeleteOpsMetadata]
readPrec :: ReadPrec DeleteOpsMetadata
$creadPrec :: ReadPrec DeleteOpsMetadata
readList :: ReadS [DeleteOpsMetadata]
$creadList :: ReadS [DeleteOpsMetadata]
readsPrec :: Int -> ReadS DeleteOpsMetadata
$creadsPrec :: Int -> ReadS DeleteOpsMetadata
Prelude.Read, Int -> DeleteOpsMetadata -> ShowS
[DeleteOpsMetadata] -> ShowS
DeleteOpsMetadata -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteOpsMetadata] -> ShowS
$cshowList :: [DeleteOpsMetadata] -> ShowS
show :: DeleteOpsMetadata -> String
$cshow :: DeleteOpsMetadata -> String
showsPrec :: Int -> DeleteOpsMetadata -> ShowS
$cshowsPrec :: Int -> DeleteOpsMetadata -> ShowS
Prelude.Show, forall x. Rep DeleteOpsMetadata x -> DeleteOpsMetadata
forall x. DeleteOpsMetadata -> Rep DeleteOpsMetadata x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteOpsMetadata x -> DeleteOpsMetadata
$cfrom :: forall x. DeleteOpsMetadata -> Rep DeleteOpsMetadata x
Prelude.Generic)
newDeleteOpsMetadata ::
Prelude.Text ->
DeleteOpsMetadata
newDeleteOpsMetadata :: Text -> DeleteOpsMetadata
newDeleteOpsMetadata Text
pOpsMetadataArn_ =
DeleteOpsMetadata'
{ $sel:opsMetadataArn:DeleteOpsMetadata' :: Text
opsMetadataArn =
Text
pOpsMetadataArn_
}
deleteOpsMetadata_opsMetadataArn :: Lens.Lens' DeleteOpsMetadata Prelude.Text
deleteOpsMetadata_opsMetadataArn :: Lens' DeleteOpsMetadata Text
deleteOpsMetadata_opsMetadataArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteOpsMetadata' {Text
opsMetadataArn :: Text
$sel:opsMetadataArn:DeleteOpsMetadata' :: DeleteOpsMetadata -> Text
opsMetadataArn} -> Text
opsMetadataArn) (\s :: DeleteOpsMetadata
s@DeleteOpsMetadata' {} Text
a -> DeleteOpsMetadata
s {$sel:opsMetadataArn:DeleteOpsMetadata' :: Text
opsMetadataArn = Text
a} :: DeleteOpsMetadata)
instance Core.AWSRequest DeleteOpsMetadata where
type
AWSResponse DeleteOpsMetadata =
DeleteOpsMetadataResponse
request :: (Service -> Service)
-> DeleteOpsMetadata -> Request DeleteOpsMetadata
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 DeleteOpsMetadata
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteOpsMetadata)))
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 -> DeleteOpsMetadataResponse
DeleteOpsMetadataResponse'
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 DeleteOpsMetadata where
hashWithSalt :: Int -> DeleteOpsMetadata -> Int
hashWithSalt Int
_salt DeleteOpsMetadata' {Text
opsMetadataArn :: Text
$sel:opsMetadataArn:DeleteOpsMetadata' :: DeleteOpsMetadata -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
opsMetadataArn
instance Prelude.NFData DeleteOpsMetadata where
rnf :: DeleteOpsMetadata -> ()
rnf DeleteOpsMetadata' {Text
opsMetadataArn :: Text
$sel:opsMetadataArn:DeleteOpsMetadata' :: DeleteOpsMetadata -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
opsMetadataArn
instance Data.ToHeaders DeleteOpsMetadata where
toHeaders :: DeleteOpsMetadata -> 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
"AmazonSSM.DeleteOpsMetadata" ::
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 DeleteOpsMetadata where
toJSON :: DeleteOpsMetadata -> Value
toJSON DeleteOpsMetadata' {Text
opsMetadataArn :: Text
$sel:opsMetadataArn:DeleteOpsMetadata' :: DeleteOpsMetadata -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"OpsMetadataArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
opsMetadataArn)
]
)
instance Data.ToPath DeleteOpsMetadata where
toPath :: DeleteOpsMetadata -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteOpsMetadata where
toQuery :: DeleteOpsMetadata -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteOpsMetadataResponse = DeleteOpsMetadataResponse'
{
DeleteOpsMetadataResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteOpsMetadataResponse -> DeleteOpsMetadataResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteOpsMetadataResponse -> DeleteOpsMetadataResponse -> Bool
$c/= :: DeleteOpsMetadataResponse -> DeleteOpsMetadataResponse -> Bool
== :: DeleteOpsMetadataResponse -> DeleteOpsMetadataResponse -> Bool
$c== :: DeleteOpsMetadataResponse -> DeleteOpsMetadataResponse -> Bool
Prelude.Eq, ReadPrec [DeleteOpsMetadataResponse]
ReadPrec DeleteOpsMetadataResponse
Int -> ReadS DeleteOpsMetadataResponse
ReadS [DeleteOpsMetadataResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteOpsMetadataResponse]
$creadListPrec :: ReadPrec [DeleteOpsMetadataResponse]
readPrec :: ReadPrec DeleteOpsMetadataResponse
$creadPrec :: ReadPrec DeleteOpsMetadataResponse
readList :: ReadS [DeleteOpsMetadataResponse]
$creadList :: ReadS [DeleteOpsMetadataResponse]
readsPrec :: Int -> ReadS DeleteOpsMetadataResponse
$creadsPrec :: Int -> ReadS DeleteOpsMetadataResponse
Prelude.Read, Int -> DeleteOpsMetadataResponse -> ShowS
[DeleteOpsMetadataResponse] -> ShowS
DeleteOpsMetadataResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteOpsMetadataResponse] -> ShowS
$cshowList :: [DeleteOpsMetadataResponse] -> ShowS
show :: DeleteOpsMetadataResponse -> String
$cshow :: DeleteOpsMetadataResponse -> String
showsPrec :: Int -> DeleteOpsMetadataResponse -> ShowS
$cshowsPrec :: Int -> DeleteOpsMetadataResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteOpsMetadataResponse x -> DeleteOpsMetadataResponse
forall x.
DeleteOpsMetadataResponse -> Rep DeleteOpsMetadataResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteOpsMetadataResponse x -> DeleteOpsMetadataResponse
$cfrom :: forall x.
DeleteOpsMetadataResponse -> Rep DeleteOpsMetadataResponse x
Prelude.Generic)
newDeleteOpsMetadataResponse ::
Prelude.Int ->
DeleteOpsMetadataResponse
newDeleteOpsMetadataResponse :: Int -> DeleteOpsMetadataResponse
newDeleteOpsMetadataResponse Int
pHttpStatus_ =
DeleteOpsMetadataResponse'
{ $sel:httpStatus:DeleteOpsMetadataResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deleteOpsMetadataResponse_httpStatus :: Lens.Lens' DeleteOpsMetadataResponse Prelude.Int
deleteOpsMetadataResponse_httpStatus :: Lens' DeleteOpsMetadataResponse Int
deleteOpsMetadataResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteOpsMetadataResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteOpsMetadataResponse' :: DeleteOpsMetadataResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteOpsMetadataResponse
s@DeleteOpsMetadataResponse' {} Int
a -> DeleteOpsMetadataResponse
s {$sel:httpStatus:DeleteOpsMetadataResponse' :: Int
httpStatus = Int
a} :: DeleteOpsMetadataResponse)
instance Prelude.NFData DeleteOpsMetadataResponse where
rnf :: DeleteOpsMetadataResponse -> ()
rnf DeleteOpsMetadataResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteOpsMetadataResponse' :: DeleteOpsMetadataResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus