{-# 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.GetOpsMetadata
(
GetOpsMetadata (..),
newGetOpsMetadata,
getOpsMetadata_maxResults,
getOpsMetadata_nextToken,
getOpsMetadata_opsMetadataArn,
GetOpsMetadataResponse (..),
newGetOpsMetadataResponse,
getOpsMetadataResponse_metadata,
getOpsMetadataResponse_nextToken,
getOpsMetadataResponse_resourceId,
getOpsMetadataResponse_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 GetOpsMetadata = GetOpsMetadata'
{
GetOpsMetadata -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
GetOpsMetadata -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetOpsMetadata -> Text
opsMetadataArn :: Prelude.Text
}
deriving (GetOpsMetadata -> GetOpsMetadata -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetOpsMetadata -> GetOpsMetadata -> Bool
$c/= :: GetOpsMetadata -> GetOpsMetadata -> Bool
== :: GetOpsMetadata -> GetOpsMetadata -> Bool
$c== :: GetOpsMetadata -> GetOpsMetadata -> Bool
Prelude.Eq, ReadPrec [GetOpsMetadata]
ReadPrec GetOpsMetadata
Int -> ReadS GetOpsMetadata
ReadS [GetOpsMetadata]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetOpsMetadata]
$creadListPrec :: ReadPrec [GetOpsMetadata]
readPrec :: ReadPrec GetOpsMetadata
$creadPrec :: ReadPrec GetOpsMetadata
readList :: ReadS [GetOpsMetadata]
$creadList :: ReadS [GetOpsMetadata]
readsPrec :: Int -> ReadS GetOpsMetadata
$creadsPrec :: Int -> ReadS GetOpsMetadata
Prelude.Read, Int -> GetOpsMetadata -> ShowS
[GetOpsMetadata] -> ShowS
GetOpsMetadata -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetOpsMetadata] -> ShowS
$cshowList :: [GetOpsMetadata] -> ShowS
show :: GetOpsMetadata -> String
$cshow :: GetOpsMetadata -> String
showsPrec :: Int -> GetOpsMetadata -> ShowS
$cshowsPrec :: Int -> GetOpsMetadata -> ShowS
Prelude.Show, forall x. Rep GetOpsMetadata x -> GetOpsMetadata
forall x. GetOpsMetadata -> Rep GetOpsMetadata x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetOpsMetadata x -> GetOpsMetadata
$cfrom :: forall x. GetOpsMetadata -> Rep GetOpsMetadata x
Prelude.Generic)
newGetOpsMetadata ::
Prelude.Text ->
GetOpsMetadata
newGetOpsMetadata :: Text -> GetOpsMetadata
newGetOpsMetadata Text
pOpsMetadataArn_ =
GetOpsMetadata'
{ $sel:maxResults:GetOpsMetadata' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:GetOpsMetadata' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:opsMetadataArn:GetOpsMetadata' :: Text
opsMetadataArn = Text
pOpsMetadataArn_
}
getOpsMetadata_maxResults :: Lens.Lens' GetOpsMetadata (Prelude.Maybe Prelude.Natural)
getOpsMetadata_maxResults :: Lens' GetOpsMetadata (Maybe Natural)
getOpsMetadata_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetOpsMetadata' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:GetOpsMetadata' :: GetOpsMetadata -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: GetOpsMetadata
s@GetOpsMetadata' {} Maybe Natural
a -> GetOpsMetadata
s {$sel:maxResults:GetOpsMetadata' :: Maybe Natural
maxResults = Maybe Natural
a} :: GetOpsMetadata)
getOpsMetadata_nextToken :: Lens.Lens' GetOpsMetadata (Prelude.Maybe Prelude.Text)
getOpsMetadata_nextToken :: Lens' GetOpsMetadata (Maybe Text)
getOpsMetadata_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetOpsMetadata' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetOpsMetadata' :: GetOpsMetadata -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetOpsMetadata
s@GetOpsMetadata' {} Maybe Text
a -> GetOpsMetadata
s {$sel:nextToken:GetOpsMetadata' :: Maybe Text
nextToken = Maybe Text
a} :: GetOpsMetadata)
getOpsMetadata_opsMetadataArn :: Lens.Lens' GetOpsMetadata Prelude.Text
getOpsMetadata_opsMetadataArn :: Lens' GetOpsMetadata Text
getOpsMetadata_opsMetadataArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetOpsMetadata' {Text
opsMetadataArn :: Text
$sel:opsMetadataArn:GetOpsMetadata' :: GetOpsMetadata -> Text
opsMetadataArn} -> Text
opsMetadataArn) (\s :: GetOpsMetadata
s@GetOpsMetadata' {} Text
a -> GetOpsMetadata
s {$sel:opsMetadataArn:GetOpsMetadata' :: Text
opsMetadataArn = Text
a} :: GetOpsMetadata)
instance Core.AWSRequest GetOpsMetadata where
type
AWSResponse GetOpsMetadata =
GetOpsMetadataResponse
request :: (Service -> Service) -> GetOpsMetadata -> Request GetOpsMetadata
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 GetOpsMetadata
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse GetOpsMetadata)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe (HashMap Text MetadataValue)
-> Maybe Text -> Maybe Text -> Int -> GetOpsMetadataResponse
GetOpsMetadataResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Metadata" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"NextToken")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ResourceId")
forall (f :: * -> *) a b. Applicative f => 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 GetOpsMetadata where
hashWithSalt :: Int -> GetOpsMetadata -> Int
hashWithSalt Int
_salt GetOpsMetadata' {Maybe Natural
Maybe Text
Text
opsMetadataArn :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:opsMetadataArn:GetOpsMetadata' :: GetOpsMetadata -> Text
$sel:nextToken:GetOpsMetadata' :: GetOpsMetadata -> Maybe Text
$sel:maxResults:GetOpsMetadata' :: GetOpsMetadata -> Maybe Natural
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
opsMetadataArn
instance Prelude.NFData GetOpsMetadata where
rnf :: GetOpsMetadata -> ()
rnf GetOpsMetadata' {Maybe Natural
Maybe Text
Text
opsMetadataArn :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:opsMetadataArn:GetOpsMetadata' :: GetOpsMetadata -> Text
$sel:nextToken:GetOpsMetadata' :: GetOpsMetadata -> Maybe Text
$sel:maxResults:GetOpsMetadata' :: GetOpsMetadata -> Maybe Natural
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
opsMetadataArn
instance Data.ToHeaders GetOpsMetadata where
toHeaders :: GetOpsMetadata -> 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.GetOpsMetadata" :: 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 GetOpsMetadata where
toJSON :: GetOpsMetadata -> Value
toJSON GetOpsMetadata' {Maybe Natural
Maybe Text
Text
opsMetadataArn :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:opsMetadataArn:GetOpsMetadata' :: GetOpsMetadata -> Text
$sel:nextToken:GetOpsMetadata' :: GetOpsMetadata -> Maybe Text
$sel:maxResults:GetOpsMetadata' :: GetOpsMetadata -> Maybe Natural
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"MaxResults" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
maxResults,
(Key
"NextToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
nextToken,
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 GetOpsMetadata where
toPath :: GetOpsMetadata -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery GetOpsMetadata where
toQuery :: GetOpsMetadata -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetOpsMetadataResponse = GetOpsMetadataResponse'
{
GetOpsMetadataResponse -> Maybe (HashMap Text MetadataValue)
metadata :: Prelude.Maybe (Prelude.HashMap Prelude.Text MetadataValue),
GetOpsMetadataResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetOpsMetadataResponse -> Maybe Text
resourceId :: Prelude.Maybe Prelude.Text,
GetOpsMetadataResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetOpsMetadataResponse -> GetOpsMetadataResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetOpsMetadataResponse -> GetOpsMetadataResponse -> Bool
$c/= :: GetOpsMetadataResponse -> GetOpsMetadataResponse -> Bool
== :: GetOpsMetadataResponse -> GetOpsMetadataResponse -> Bool
$c== :: GetOpsMetadataResponse -> GetOpsMetadataResponse -> Bool
Prelude.Eq, ReadPrec [GetOpsMetadataResponse]
ReadPrec GetOpsMetadataResponse
Int -> ReadS GetOpsMetadataResponse
ReadS [GetOpsMetadataResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetOpsMetadataResponse]
$creadListPrec :: ReadPrec [GetOpsMetadataResponse]
readPrec :: ReadPrec GetOpsMetadataResponse
$creadPrec :: ReadPrec GetOpsMetadataResponse
readList :: ReadS [GetOpsMetadataResponse]
$creadList :: ReadS [GetOpsMetadataResponse]
readsPrec :: Int -> ReadS GetOpsMetadataResponse
$creadsPrec :: Int -> ReadS GetOpsMetadataResponse
Prelude.Read, Int -> GetOpsMetadataResponse -> ShowS
[GetOpsMetadataResponse] -> ShowS
GetOpsMetadataResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetOpsMetadataResponse] -> ShowS
$cshowList :: [GetOpsMetadataResponse] -> ShowS
show :: GetOpsMetadataResponse -> String
$cshow :: GetOpsMetadataResponse -> String
showsPrec :: Int -> GetOpsMetadataResponse -> ShowS
$cshowsPrec :: Int -> GetOpsMetadataResponse -> ShowS
Prelude.Show, forall x. Rep GetOpsMetadataResponse x -> GetOpsMetadataResponse
forall x. GetOpsMetadataResponse -> Rep GetOpsMetadataResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetOpsMetadataResponse x -> GetOpsMetadataResponse
$cfrom :: forall x. GetOpsMetadataResponse -> Rep GetOpsMetadataResponse x
Prelude.Generic)
newGetOpsMetadataResponse ::
Prelude.Int ->
GetOpsMetadataResponse
newGetOpsMetadataResponse :: Int -> GetOpsMetadataResponse
newGetOpsMetadataResponse Int
pHttpStatus_ =
GetOpsMetadataResponse'
{ $sel:metadata:GetOpsMetadataResponse' :: Maybe (HashMap Text MetadataValue)
metadata = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:GetOpsMetadataResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:resourceId:GetOpsMetadataResponse' :: Maybe Text
resourceId = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetOpsMetadataResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getOpsMetadataResponse_metadata :: Lens.Lens' GetOpsMetadataResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text MetadataValue))
getOpsMetadataResponse_metadata :: Lens' GetOpsMetadataResponse (Maybe (HashMap Text MetadataValue))
getOpsMetadataResponse_metadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetOpsMetadataResponse' {Maybe (HashMap Text MetadataValue)
metadata :: Maybe (HashMap Text MetadataValue)
$sel:metadata:GetOpsMetadataResponse' :: GetOpsMetadataResponse -> Maybe (HashMap Text MetadataValue)
metadata} -> Maybe (HashMap Text MetadataValue)
metadata) (\s :: GetOpsMetadataResponse
s@GetOpsMetadataResponse' {} Maybe (HashMap Text MetadataValue)
a -> GetOpsMetadataResponse
s {$sel:metadata:GetOpsMetadataResponse' :: Maybe (HashMap Text MetadataValue)
metadata = Maybe (HashMap Text MetadataValue)
a} :: GetOpsMetadataResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
getOpsMetadataResponse_nextToken :: Lens.Lens' GetOpsMetadataResponse (Prelude.Maybe Prelude.Text)
getOpsMetadataResponse_nextToken :: Lens' GetOpsMetadataResponse (Maybe Text)
getOpsMetadataResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetOpsMetadataResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetOpsMetadataResponse' :: GetOpsMetadataResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetOpsMetadataResponse
s@GetOpsMetadataResponse' {} Maybe Text
a -> GetOpsMetadataResponse
s {$sel:nextToken:GetOpsMetadataResponse' :: Maybe Text
nextToken = Maybe Text
a} :: GetOpsMetadataResponse)
getOpsMetadataResponse_resourceId :: Lens.Lens' GetOpsMetadataResponse (Prelude.Maybe Prelude.Text)
getOpsMetadataResponse_resourceId :: Lens' GetOpsMetadataResponse (Maybe Text)
getOpsMetadataResponse_resourceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetOpsMetadataResponse' {Maybe Text
resourceId :: Maybe Text
$sel:resourceId:GetOpsMetadataResponse' :: GetOpsMetadataResponse -> Maybe Text
resourceId} -> Maybe Text
resourceId) (\s :: GetOpsMetadataResponse
s@GetOpsMetadataResponse' {} Maybe Text
a -> GetOpsMetadataResponse
s {$sel:resourceId:GetOpsMetadataResponse' :: Maybe Text
resourceId = Maybe Text
a} :: GetOpsMetadataResponse)
getOpsMetadataResponse_httpStatus :: Lens.Lens' GetOpsMetadataResponse Prelude.Int
getOpsMetadataResponse_httpStatus :: Lens' GetOpsMetadataResponse Int
getOpsMetadataResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetOpsMetadataResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetOpsMetadataResponse' :: GetOpsMetadataResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetOpsMetadataResponse
s@GetOpsMetadataResponse' {} Int
a -> GetOpsMetadataResponse
s {$sel:httpStatus:GetOpsMetadataResponse' :: Int
httpStatus = Int
a} :: GetOpsMetadataResponse)
instance Prelude.NFData GetOpsMetadataResponse where
rnf :: GetOpsMetadataResponse -> ()
rnf GetOpsMetadataResponse' {Int
Maybe Text
Maybe (HashMap Text MetadataValue)
httpStatus :: Int
resourceId :: Maybe Text
nextToken :: Maybe Text
metadata :: Maybe (HashMap Text MetadataValue)
$sel:httpStatus:GetOpsMetadataResponse' :: GetOpsMetadataResponse -> Int
$sel:resourceId:GetOpsMetadataResponse' :: GetOpsMetadataResponse -> Maybe Text
$sel:nextToken:GetOpsMetadataResponse' :: GetOpsMetadataResponse -> Maybe Text
$sel:metadata:GetOpsMetadataResponse' :: GetOpsMetadataResponse -> Maybe (HashMap Text MetadataValue)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text MetadataValue)
metadata
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
resourceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus