{-# 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.EC2.GetAssociatedEnclaveCertificateIamRoles
(
GetAssociatedEnclaveCertificateIamRoles (..),
newGetAssociatedEnclaveCertificateIamRoles,
getAssociatedEnclaveCertificateIamRoles_certificateArn,
getAssociatedEnclaveCertificateIamRoles_dryRun,
GetAssociatedEnclaveCertificateIamRolesResponse (..),
newGetAssociatedEnclaveCertificateIamRolesResponse,
getAssociatedEnclaveCertificateIamRolesResponse_associatedRoles,
getAssociatedEnclaveCertificateIamRolesResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetAssociatedEnclaveCertificateIamRoles = GetAssociatedEnclaveCertificateIamRoles'
{
GetAssociatedEnclaveCertificateIamRoles -> Maybe Text
certificateArn :: Prelude.Maybe Prelude.Text,
GetAssociatedEnclaveCertificateIamRoles -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool
}
deriving (GetAssociatedEnclaveCertificateIamRoles
-> GetAssociatedEnclaveCertificateIamRoles -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetAssociatedEnclaveCertificateIamRoles
-> GetAssociatedEnclaveCertificateIamRoles -> Bool
$c/= :: GetAssociatedEnclaveCertificateIamRoles
-> GetAssociatedEnclaveCertificateIamRoles -> Bool
== :: GetAssociatedEnclaveCertificateIamRoles
-> GetAssociatedEnclaveCertificateIamRoles -> Bool
$c== :: GetAssociatedEnclaveCertificateIamRoles
-> GetAssociatedEnclaveCertificateIamRoles -> Bool
Prelude.Eq, ReadPrec [GetAssociatedEnclaveCertificateIamRoles]
ReadPrec GetAssociatedEnclaveCertificateIamRoles
Int -> ReadS GetAssociatedEnclaveCertificateIamRoles
ReadS [GetAssociatedEnclaveCertificateIamRoles]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetAssociatedEnclaveCertificateIamRoles]
$creadListPrec :: ReadPrec [GetAssociatedEnclaveCertificateIamRoles]
readPrec :: ReadPrec GetAssociatedEnclaveCertificateIamRoles
$creadPrec :: ReadPrec GetAssociatedEnclaveCertificateIamRoles
readList :: ReadS [GetAssociatedEnclaveCertificateIamRoles]
$creadList :: ReadS [GetAssociatedEnclaveCertificateIamRoles]
readsPrec :: Int -> ReadS GetAssociatedEnclaveCertificateIamRoles
$creadsPrec :: Int -> ReadS GetAssociatedEnclaveCertificateIamRoles
Prelude.Read, Int -> GetAssociatedEnclaveCertificateIamRoles -> ShowS
[GetAssociatedEnclaveCertificateIamRoles] -> ShowS
GetAssociatedEnclaveCertificateIamRoles -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetAssociatedEnclaveCertificateIamRoles] -> ShowS
$cshowList :: [GetAssociatedEnclaveCertificateIamRoles] -> ShowS
show :: GetAssociatedEnclaveCertificateIamRoles -> String
$cshow :: GetAssociatedEnclaveCertificateIamRoles -> String
showsPrec :: Int -> GetAssociatedEnclaveCertificateIamRoles -> ShowS
$cshowsPrec :: Int -> GetAssociatedEnclaveCertificateIamRoles -> ShowS
Prelude.Show, forall x.
Rep GetAssociatedEnclaveCertificateIamRoles x
-> GetAssociatedEnclaveCertificateIamRoles
forall x.
GetAssociatedEnclaveCertificateIamRoles
-> Rep GetAssociatedEnclaveCertificateIamRoles x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetAssociatedEnclaveCertificateIamRoles x
-> GetAssociatedEnclaveCertificateIamRoles
$cfrom :: forall x.
GetAssociatedEnclaveCertificateIamRoles
-> Rep GetAssociatedEnclaveCertificateIamRoles x
Prelude.Generic)
newGetAssociatedEnclaveCertificateIamRoles ::
GetAssociatedEnclaveCertificateIamRoles
newGetAssociatedEnclaveCertificateIamRoles :: GetAssociatedEnclaveCertificateIamRoles
newGetAssociatedEnclaveCertificateIamRoles =
GetAssociatedEnclaveCertificateIamRoles'
{ $sel:certificateArn:GetAssociatedEnclaveCertificateIamRoles' :: Maybe Text
certificateArn =
forall a. Maybe a
Prelude.Nothing,
$sel:dryRun:GetAssociatedEnclaveCertificateIamRoles' :: Maybe Bool
dryRun = forall a. Maybe a
Prelude.Nothing
}
getAssociatedEnclaveCertificateIamRoles_certificateArn :: Lens.Lens' GetAssociatedEnclaveCertificateIamRoles (Prelude.Maybe Prelude.Text)
getAssociatedEnclaveCertificateIamRoles_certificateArn :: Lens' GetAssociatedEnclaveCertificateIamRoles (Maybe Text)
getAssociatedEnclaveCertificateIamRoles_certificateArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetAssociatedEnclaveCertificateIamRoles' {Maybe Text
certificateArn :: Maybe Text
$sel:certificateArn:GetAssociatedEnclaveCertificateIamRoles' :: GetAssociatedEnclaveCertificateIamRoles -> Maybe Text
certificateArn} -> Maybe Text
certificateArn) (\s :: GetAssociatedEnclaveCertificateIamRoles
s@GetAssociatedEnclaveCertificateIamRoles' {} Maybe Text
a -> GetAssociatedEnclaveCertificateIamRoles
s {$sel:certificateArn:GetAssociatedEnclaveCertificateIamRoles' :: Maybe Text
certificateArn = Maybe Text
a} :: GetAssociatedEnclaveCertificateIamRoles)
getAssociatedEnclaveCertificateIamRoles_dryRun :: Lens.Lens' GetAssociatedEnclaveCertificateIamRoles (Prelude.Maybe Prelude.Bool)
getAssociatedEnclaveCertificateIamRoles_dryRun :: Lens' GetAssociatedEnclaveCertificateIamRoles (Maybe Bool)
getAssociatedEnclaveCertificateIamRoles_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetAssociatedEnclaveCertificateIamRoles' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:GetAssociatedEnclaveCertificateIamRoles' :: GetAssociatedEnclaveCertificateIamRoles -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: GetAssociatedEnclaveCertificateIamRoles
s@GetAssociatedEnclaveCertificateIamRoles' {} Maybe Bool
a -> GetAssociatedEnclaveCertificateIamRoles
s {$sel:dryRun:GetAssociatedEnclaveCertificateIamRoles' :: Maybe Bool
dryRun = Maybe Bool
a} :: GetAssociatedEnclaveCertificateIamRoles)
instance
Core.AWSRequest
GetAssociatedEnclaveCertificateIamRoles
where
type
AWSResponse
GetAssociatedEnclaveCertificateIamRoles =
GetAssociatedEnclaveCertificateIamRolesResponse
request :: (Service -> Service)
-> GetAssociatedEnclaveCertificateIamRoles
-> Request GetAssociatedEnclaveCertificateIamRoles
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 GetAssociatedEnclaveCertificateIamRoles
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse GetAssociatedEnclaveCertificateIamRoles)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe [AssociatedRole]
-> Int -> GetAssociatedEnclaveCertificateIamRolesResponse
GetAssociatedEnclaveCertificateIamRolesResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ( [Node]
x
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"associatedRoleSet"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"item")
)
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
GetAssociatedEnclaveCertificateIamRoles
where
hashWithSalt :: Int -> GetAssociatedEnclaveCertificateIamRoles -> Int
hashWithSalt
Int
_salt
GetAssociatedEnclaveCertificateIamRoles' {Maybe Bool
Maybe Text
dryRun :: Maybe Bool
certificateArn :: Maybe Text
$sel:dryRun:GetAssociatedEnclaveCertificateIamRoles' :: GetAssociatedEnclaveCertificateIamRoles -> Maybe Bool
$sel:certificateArn:GetAssociatedEnclaveCertificateIamRoles' :: GetAssociatedEnclaveCertificateIamRoles -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
certificateArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dryRun
instance
Prelude.NFData
GetAssociatedEnclaveCertificateIamRoles
where
rnf :: GetAssociatedEnclaveCertificateIamRoles -> ()
rnf GetAssociatedEnclaveCertificateIamRoles' {Maybe Bool
Maybe Text
dryRun :: Maybe Bool
certificateArn :: Maybe Text
$sel:dryRun:GetAssociatedEnclaveCertificateIamRoles' :: GetAssociatedEnclaveCertificateIamRoles -> Maybe Bool
$sel:certificateArn:GetAssociatedEnclaveCertificateIamRoles' :: GetAssociatedEnclaveCertificateIamRoles -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
certificateArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
dryRun
instance
Data.ToHeaders
GetAssociatedEnclaveCertificateIamRoles
where
toHeaders :: GetAssociatedEnclaveCertificateIamRoles -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
GetAssociatedEnclaveCertificateIamRoles
where
toPath :: GetAssociatedEnclaveCertificateIamRoles -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
GetAssociatedEnclaveCertificateIamRoles
where
toQuery :: GetAssociatedEnclaveCertificateIamRoles -> QueryString
toQuery GetAssociatedEnclaveCertificateIamRoles' {Maybe Bool
Maybe Text
dryRun :: Maybe Bool
certificateArn :: Maybe Text
$sel:dryRun:GetAssociatedEnclaveCertificateIamRoles' :: GetAssociatedEnclaveCertificateIamRoles -> Maybe Bool
$sel:certificateArn:GetAssociatedEnclaveCertificateIamRoles' :: GetAssociatedEnclaveCertificateIamRoles -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"GetAssociatedEnclaveCertificateIamRoles" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
ByteString
"CertificateArn" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
certificateArn,
ByteString
"DryRun" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dryRun
]
data GetAssociatedEnclaveCertificateIamRolesResponse = GetAssociatedEnclaveCertificateIamRolesResponse'
{
GetAssociatedEnclaveCertificateIamRolesResponse
-> Maybe [AssociatedRole]
associatedRoles :: Prelude.Maybe [AssociatedRole],
GetAssociatedEnclaveCertificateIamRolesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetAssociatedEnclaveCertificateIamRolesResponse
-> GetAssociatedEnclaveCertificateIamRolesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetAssociatedEnclaveCertificateIamRolesResponse
-> GetAssociatedEnclaveCertificateIamRolesResponse -> Bool
$c/= :: GetAssociatedEnclaveCertificateIamRolesResponse
-> GetAssociatedEnclaveCertificateIamRolesResponse -> Bool
== :: GetAssociatedEnclaveCertificateIamRolesResponse
-> GetAssociatedEnclaveCertificateIamRolesResponse -> Bool
$c== :: GetAssociatedEnclaveCertificateIamRolesResponse
-> GetAssociatedEnclaveCertificateIamRolesResponse -> Bool
Prelude.Eq, ReadPrec [GetAssociatedEnclaveCertificateIamRolesResponse]
ReadPrec GetAssociatedEnclaveCertificateIamRolesResponse
Int -> ReadS GetAssociatedEnclaveCertificateIamRolesResponse
ReadS [GetAssociatedEnclaveCertificateIamRolesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetAssociatedEnclaveCertificateIamRolesResponse]
$creadListPrec :: ReadPrec [GetAssociatedEnclaveCertificateIamRolesResponse]
readPrec :: ReadPrec GetAssociatedEnclaveCertificateIamRolesResponse
$creadPrec :: ReadPrec GetAssociatedEnclaveCertificateIamRolesResponse
readList :: ReadS [GetAssociatedEnclaveCertificateIamRolesResponse]
$creadList :: ReadS [GetAssociatedEnclaveCertificateIamRolesResponse]
readsPrec :: Int -> ReadS GetAssociatedEnclaveCertificateIamRolesResponse
$creadsPrec :: Int -> ReadS GetAssociatedEnclaveCertificateIamRolesResponse
Prelude.Read, Int -> GetAssociatedEnclaveCertificateIamRolesResponse -> ShowS
[GetAssociatedEnclaveCertificateIamRolesResponse] -> ShowS
GetAssociatedEnclaveCertificateIamRolesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetAssociatedEnclaveCertificateIamRolesResponse] -> ShowS
$cshowList :: [GetAssociatedEnclaveCertificateIamRolesResponse] -> ShowS
show :: GetAssociatedEnclaveCertificateIamRolesResponse -> String
$cshow :: GetAssociatedEnclaveCertificateIamRolesResponse -> String
showsPrec :: Int -> GetAssociatedEnclaveCertificateIamRolesResponse -> ShowS
$cshowsPrec :: Int -> GetAssociatedEnclaveCertificateIamRolesResponse -> ShowS
Prelude.Show, forall x.
Rep GetAssociatedEnclaveCertificateIamRolesResponse x
-> GetAssociatedEnclaveCertificateIamRolesResponse
forall x.
GetAssociatedEnclaveCertificateIamRolesResponse
-> Rep GetAssociatedEnclaveCertificateIamRolesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetAssociatedEnclaveCertificateIamRolesResponse x
-> GetAssociatedEnclaveCertificateIamRolesResponse
$cfrom :: forall x.
GetAssociatedEnclaveCertificateIamRolesResponse
-> Rep GetAssociatedEnclaveCertificateIamRolesResponse x
Prelude.Generic)
newGetAssociatedEnclaveCertificateIamRolesResponse ::
Prelude.Int ->
GetAssociatedEnclaveCertificateIamRolesResponse
newGetAssociatedEnclaveCertificateIamRolesResponse :: Int -> GetAssociatedEnclaveCertificateIamRolesResponse
newGetAssociatedEnclaveCertificateIamRolesResponse
Int
pHttpStatus_ =
GetAssociatedEnclaveCertificateIamRolesResponse'
{ $sel:associatedRoles:GetAssociatedEnclaveCertificateIamRolesResponse' :: Maybe [AssociatedRole]
associatedRoles =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetAssociatedEnclaveCertificateIamRolesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getAssociatedEnclaveCertificateIamRolesResponse_associatedRoles :: Lens.Lens' GetAssociatedEnclaveCertificateIamRolesResponse (Prelude.Maybe [AssociatedRole])
getAssociatedEnclaveCertificateIamRolesResponse_associatedRoles :: Lens'
GetAssociatedEnclaveCertificateIamRolesResponse
(Maybe [AssociatedRole])
getAssociatedEnclaveCertificateIamRolesResponse_associatedRoles = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetAssociatedEnclaveCertificateIamRolesResponse' {Maybe [AssociatedRole]
associatedRoles :: Maybe [AssociatedRole]
$sel:associatedRoles:GetAssociatedEnclaveCertificateIamRolesResponse' :: GetAssociatedEnclaveCertificateIamRolesResponse
-> Maybe [AssociatedRole]
associatedRoles} -> Maybe [AssociatedRole]
associatedRoles) (\s :: GetAssociatedEnclaveCertificateIamRolesResponse
s@GetAssociatedEnclaveCertificateIamRolesResponse' {} Maybe [AssociatedRole]
a -> GetAssociatedEnclaveCertificateIamRolesResponse
s {$sel:associatedRoles:GetAssociatedEnclaveCertificateIamRolesResponse' :: Maybe [AssociatedRole]
associatedRoles = Maybe [AssociatedRole]
a} :: GetAssociatedEnclaveCertificateIamRolesResponse) 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
getAssociatedEnclaveCertificateIamRolesResponse_httpStatus :: Lens.Lens' GetAssociatedEnclaveCertificateIamRolesResponse Prelude.Int
getAssociatedEnclaveCertificateIamRolesResponse_httpStatus :: Lens' GetAssociatedEnclaveCertificateIamRolesResponse Int
getAssociatedEnclaveCertificateIamRolesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetAssociatedEnclaveCertificateIamRolesResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetAssociatedEnclaveCertificateIamRolesResponse' :: GetAssociatedEnclaveCertificateIamRolesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetAssociatedEnclaveCertificateIamRolesResponse
s@GetAssociatedEnclaveCertificateIamRolesResponse' {} Int
a -> GetAssociatedEnclaveCertificateIamRolesResponse
s {$sel:httpStatus:GetAssociatedEnclaveCertificateIamRolesResponse' :: Int
httpStatus = Int
a} :: GetAssociatedEnclaveCertificateIamRolesResponse)
instance
Prelude.NFData
GetAssociatedEnclaveCertificateIamRolesResponse
where
rnf :: GetAssociatedEnclaveCertificateIamRolesResponse -> ()
rnf
GetAssociatedEnclaveCertificateIamRolesResponse' {Int
Maybe [AssociatedRole]
httpStatus :: Int
associatedRoles :: Maybe [AssociatedRole]
$sel:httpStatus:GetAssociatedEnclaveCertificateIamRolesResponse' :: GetAssociatedEnclaveCertificateIamRolesResponse -> Int
$sel:associatedRoles:GetAssociatedEnclaveCertificateIamRolesResponse' :: GetAssociatedEnclaveCertificateIamRolesResponse
-> Maybe [AssociatedRole]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [AssociatedRole]
associatedRoles
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus