{-# 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.SSOAdmin.DescribeInstanceAccessControlAttributeConfiguration
(
DescribeInstanceAccessControlAttributeConfiguration (..),
newDescribeInstanceAccessControlAttributeConfiguration,
describeInstanceAccessControlAttributeConfiguration_instanceArn,
DescribeInstanceAccessControlAttributeConfigurationResponse (..),
newDescribeInstanceAccessControlAttributeConfigurationResponse,
describeInstanceAccessControlAttributeConfigurationResponse_instanceAccessControlAttributeConfiguration,
describeInstanceAccessControlAttributeConfigurationResponse_status,
describeInstanceAccessControlAttributeConfigurationResponse_statusReason,
describeInstanceAccessControlAttributeConfigurationResponse_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.SSOAdmin.Types
data DescribeInstanceAccessControlAttributeConfiguration = DescribeInstanceAccessControlAttributeConfiguration'
{
DescribeInstanceAccessControlAttributeConfiguration -> Text
instanceArn :: Prelude.Text
}
deriving (DescribeInstanceAccessControlAttributeConfiguration
-> DescribeInstanceAccessControlAttributeConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeInstanceAccessControlAttributeConfiguration
-> DescribeInstanceAccessControlAttributeConfiguration -> Bool
$c/= :: DescribeInstanceAccessControlAttributeConfiguration
-> DescribeInstanceAccessControlAttributeConfiguration -> Bool
== :: DescribeInstanceAccessControlAttributeConfiguration
-> DescribeInstanceAccessControlAttributeConfiguration -> Bool
$c== :: DescribeInstanceAccessControlAttributeConfiguration
-> DescribeInstanceAccessControlAttributeConfiguration -> Bool
Prelude.Eq, ReadPrec [DescribeInstanceAccessControlAttributeConfiguration]
ReadPrec DescribeInstanceAccessControlAttributeConfiguration
Int -> ReadS DescribeInstanceAccessControlAttributeConfiguration
ReadS [DescribeInstanceAccessControlAttributeConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeInstanceAccessControlAttributeConfiguration]
$creadListPrec :: ReadPrec [DescribeInstanceAccessControlAttributeConfiguration]
readPrec :: ReadPrec DescribeInstanceAccessControlAttributeConfiguration
$creadPrec :: ReadPrec DescribeInstanceAccessControlAttributeConfiguration
readList :: ReadS [DescribeInstanceAccessControlAttributeConfiguration]
$creadList :: ReadS [DescribeInstanceAccessControlAttributeConfiguration]
readsPrec :: Int -> ReadS DescribeInstanceAccessControlAttributeConfiguration
$creadsPrec :: Int -> ReadS DescribeInstanceAccessControlAttributeConfiguration
Prelude.Read, Int -> DescribeInstanceAccessControlAttributeConfiguration -> ShowS
[DescribeInstanceAccessControlAttributeConfiguration] -> ShowS
DescribeInstanceAccessControlAttributeConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeInstanceAccessControlAttributeConfiguration] -> ShowS
$cshowList :: [DescribeInstanceAccessControlAttributeConfiguration] -> ShowS
show :: DescribeInstanceAccessControlAttributeConfiguration -> String
$cshow :: DescribeInstanceAccessControlAttributeConfiguration -> String
showsPrec :: Int -> DescribeInstanceAccessControlAttributeConfiguration -> ShowS
$cshowsPrec :: Int -> DescribeInstanceAccessControlAttributeConfiguration -> ShowS
Prelude.Show, forall x.
Rep DescribeInstanceAccessControlAttributeConfiguration x
-> DescribeInstanceAccessControlAttributeConfiguration
forall x.
DescribeInstanceAccessControlAttributeConfiguration
-> Rep DescribeInstanceAccessControlAttributeConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeInstanceAccessControlAttributeConfiguration x
-> DescribeInstanceAccessControlAttributeConfiguration
$cfrom :: forall x.
DescribeInstanceAccessControlAttributeConfiguration
-> Rep DescribeInstanceAccessControlAttributeConfiguration x
Prelude.Generic)
newDescribeInstanceAccessControlAttributeConfiguration ::
Prelude.Text ->
DescribeInstanceAccessControlAttributeConfiguration
newDescribeInstanceAccessControlAttributeConfiguration :: Text -> DescribeInstanceAccessControlAttributeConfiguration
newDescribeInstanceAccessControlAttributeConfiguration
Text
pInstanceArn_ =
DescribeInstanceAccessControlAttributeConfiguration'
{ $sel:instanceArn:DescribeInstanceAccessControlAttributeConfiguration' :: Text
instanceArn =
Text
pInstanceArn_
}
describeInstanceAccessControlAttributeConfiguration_instanceArn :: Lens.Lens' DescribeInstanceAccessControlAttributeConfiguration Prelude.Text
describeInstanceAccessControlAttributeConfiguration_instanceArn :: Lens' DescribeInstanceAccessControlAttributeConfiguration Text
describeInstanceAccessControlAttributeConfiguration_instanceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceAccessControlAttributeConfiguration' {Text
instanceArn :: Text
$sel:instanceArn:DescribeInstanceAccessControlAttributeConfiguration' :: DescribeInstanceAccessControlAttributeConfiguration -> Text
instanceArn} -> Text
instanceArn) (\s :: DescribeInstanceAccessControlAttributeConfiguration
s@DescribeInstanceAccessControlAttributeConfiguration' {} Text
a -> DescribeInstanceAccessControlAttributeConfiguration
s {$sel:instanceArn:DescribeInstanceAccessControlAttributeConfiguration' :: Text
instanceArn = Text
a} :: DescribeInstanceAccessControlAttributeConfiguration)
instance
Core.AWSRequest
DescribeInstanceAccessControlAttributeConfiguration
where
type
AWSResponse
DescribeInstanceAccessControlAttributeConfiguration =
DescribeInstanceAccessControlAttributeConfigurationResponse
request :: (Service -> Service)
-> DescribeInstanceAccessControlAttributeConfiguration
-> Request DescribeInstanceAccessControlAttributeConfiguration
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 DescribeInstanceAccessControlAttributeConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse DescribeInstanceAccessControlAttributeConfiguration)))
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 InstanceAccessControlAttributeConfiguration
-> Maybe InstanceAccessControlAttributeConfigurationStatus
-> Maybe Text
-> Int
-> DescribeInstanceAccessControlAttributeConfigurationResponse
DescribeInstanceAccessControlAttributeConfigurationResponse'
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
"InstanceAccessControlAttributeConfiguration"
)
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
"Status")
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
"StatusReason")
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
DescribeInstanceAccessControlAttributeConfiguration
where
hashWithSalt :: Int -> DescribeInstanceAccessControlAttributeConfiguration -> Int
hashWithSalt
Int
_salt
DescribeInstanceAccessControlAttributeConfiguration' {Text
instanceArn :: Text
$sel:instanceArn:DescribeInstanceAccessControlAttributeConfiguration' :: DescribeInstanceAccessControlAttributeConfiguration -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
instanceArn
instance
Prelude.NFData
DescribeInstanceAccessControlAttributeConfiguration
where
rnf :: DescribeInstanceAccessControlAttributeConfiguration -> ()
rnf
DescribeInstanceAccessControlAttributeConfiguration' {Text
instanceArn :: Text
$sel:instanceArn:DescribeInstanceAccessControlAttributeConfiguration' :: DescribeInstanceAccessControlAttributeConfiguration -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
instanceArn
instance
Data.ToHeaders
DescribeInstanceAccessControlAttributeConfiguration
where
toHeaders :: DescribeInstanceAccessControlAttributeConfiguration
-> 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
"SWBExternalService.DescribeInstanceAccessControlAttributeConfiguration" ::
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
DescribeInstanceAccessControlAttributeConfiguration
where
toJSON :: DescribeInstanceAccessControlAttributeConfiguration -> Value
toJSON
DescribeInstanceAccessControlAttributeConfiguration' {Text
instanceArn :: Text
$sel:instanceArn:DescribeInstanceAccessControlAttributeConfiguration' :: DescribeInstanceAccessControlAttributeConfiguration -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"InstanceArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
instanceArn)]
)
instance
Data.ToPath
DescribeInstanceAccessControlAttributeConfiguration
where
toPath :: DescribeInstanceAccessControlAttributeConfiguration -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DescribeInstanceAccessControlAttributeConfiguration
where
toQuery :: DescribeInstanceAccessControlAttributeConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeInstanceAccessControlAttributeConfigurationResponse = DescribeInstanceAccessControlAttributeConfigurationResponse'
{
DescribeInstanceAccessControlAttributeConfigurationResponse
-> Maybe InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration :: Prelude.Maybe InstanceAccessControlAttributeConfiguration,
DescribeInstanceAccessControlAttributeConfigurationResponse
-> Maybe InstanceAccessControlAttributeConfigurationStatus
status :: Prelude.Maybe InstanceAccessControlAttributeConfigurationStatus,
DescribeInstanceAccessControlAttributeConfigurationResponse
-> Maybe Text
statusReason :: Prelude.Maybe Prelude.Text,
DescribeInstanceAccessControlAttributeConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeInstanceAccessControlAttributeConfigurationResponse
-> DescribeInstanceAccessControlAttributeConfigurationResponse
-> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeInstanceAccessControlAttributeConfigurationResponse
-> DescribeInstanceAccessControlAttributeConfigurationResponse
-> Bool
$c/= :: DescribeInstanceAccessControlAttributeConfigurationResponse
-> DescribeInstanceAccessControlAttributeConfigurationResponse
-> Bool
== :: DescribeInstanceAccessControlAttributeConfigurationResponse
-> DescribeInstanceAccessControlAttributeConfigurationResponse
-> Bool
$c== :: DescribeInstanceAccessControlAttributeConfigurationResponse
-> DescribeInstanceAccessControlAttributeConfigurationResponse
-> Bool
Prelude.Eq, ReadPrec
[DescribeInstanceAccessControlAttributeConfigurationResponse]
ReadPrec
DescribeInstanceAccessControlAttributeConfigurationResponse
Int
-> ReadS
DescribeInstanceAccessControlAttributeConfigurationResponse
ReadS [DescribeInstanceAccessControlAttributeConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec
[DescribeInstanceAccessControlAttributeConfigurationResponse]
$creadListPrec :: ReadPrec
[DescribeInstanceAccessControlAttributeConfigurationResponse]
readPrec :: ReadPrec
DescribeInstanceAccessControlAttributeConfigurationResponse
$creadPrec :: ReadPrec
DescribeInstanceAccessControlAttributeConfigurationResponse
readList :: ReadS [DescribeInstanceAccessControlAttributeConfigurationResponse]
$creadList :: ReadS [DescribeInstanceAccessControlAttributeConfigurationResponse]
readsPrec :: Int
-> ReadS
DescribeInstanceAccessControlAttributeConfigurationResponse
$creadsPrec :: Int
-> ReadS
DescribeInstanceAccessControlAttributeConfigurationResponse
Prelude.Read, Int
-> DescribeInstanceAccessControlAttributeConfigurationResponse
-> ShowS
[DescribeInstanceAccessControlAttributeConfigurationResponse]
-> ShowS
DescribeInstanceAccessControlAttributeConfigurationResponse
-> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeInstanceAccessControlAttributeConfigurationResponse]
-> ShowS
$cshowList :: [DescribeInstanceAccessControlAttributeConfigurationResponse]
-> ShowS
show :: DescribeInstanceAccessControlAttributeConfigurationResponse
-> String
$cshow :: DescribeInstanceAccessControlAttributeConfigurationResponse
-> String
showsPrec :: Int
-> DescribeInstanceAccessControlAttributeConfigurationResponse
-> ShowS
$cshowsPrec :: Int
-> DescribeInstanceAccessControlAttributeConfigurationResponse
-> ShowS
Prelude.Show, forall x.
Rep DescribeInstanceAccessControlAttributeConfigurationResponse x
-> DescribeInstanceAccessControlAttributeConfigurationResponse
forall x.
DescribeInstanceAccessControlAttributeConfigurationResponse
-> Rep
DescribeInstanceAccessControlAttributeConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeInstanceAccessControlAttributeConfigurationResponse x
-> DescribeInstanceAccessControlAttributeConfigurationResponse
$cfrom :: forall x.
DescribeInstanceAccessControlAttributeConfigurationResponse
-> Rep
DescribeInstanceAccessControlAttributeConfigurationResponse x
Prelude.Generic)
newDescribeInstanceAccessControlAttributeConfigurationResponse ::
Prelude.Int ->
DescribeInstanceAccessControlAttributeConfigurationResponse
newDescribeInstanceAccessControlAttributeConfigurationResponse :: Int -> DescribeInstanceAccessControlAttributeConfigurationResponse
newDescribeInstanceAccessControlAttributeConfigurationResponse
Int
pHttpStatus_ =
DescribeInstanceAccessControlAttributeConfigurationResponse'
{ $sel:instanceAccessControlAttributeConfiguration:DescribeInstanceAccessControlAttributeConfigurationResponse' :: Maybe InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration =
forall a. Maybe a
Prelude.Nothing,
$sel:status:DescribeInstanceAccessControlAttributeConfigurationResponse' :: Maybe InstanceAccessControlAttributeConfigurationStatus
status =
forall a. Maybe a
Prelude.Nothing,
$sel:statusReason:DescribeInstanceAccessControlAttributeConfigurationResponse' :: Maybe Text
statusReason =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeInstanceAccessControlAttributeConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
describeInstanceAccessControlAttributeConfigurationResponse_instanceAccessControlAttributeConfiguration :: Lens.Lens' DescribeInstanceAccessControlAttributeConfigurationResponse (Prelude.Maybe InstanceAccessControlAttributeConfiguration)
describeInstanceAccessControlAttributeConfigurationResponse_instanceAccessControlAttributeConfiguration :: Lens'
DescribeInstanceAccessControlAttributeConfigurationResponse
(Maybe InstanceAccessControlAttributeConfiguration)
describeInstanceAccessControlAttributeConfigurationResponse_instanceAccessControlAttributeConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceAccessControlAttributeConfigurationResponse' {Maybe InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration :: Maybe InstanceAccessControlAttributeConfiguration
$sel:instanceAccessControlAttributeConfiguration:DescribeInstanceAccessControlAttributeConfigurationResponse' :: DescribeInstanceAccessControlAttributeConfigurationResponse
-> Maybe InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration} -> Maybe InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration) (\s :: DescribeInstanceAccessControlAttributeConfigurationResponse
s@DescribeInstanceAccessControlAttributeConfigurationResponse' {} Maybe InstanceAccessControlAttributeConfiguration
a -> DescribeInstanceAccessControlAttributeConfigurationResponse
s {$sel:instanceAccessControlAttributeConfiguration:DescribeInstanceAccessControlAttributeConfigurationResponse' :: Maybe InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration = Maybe InstanceAccessControlAttributeConfiguration
a} :: DescribeInstanceAccessControlAttributeConfigurationResponse)
describeInstanceAccessControlAttributeConfigurationResponse_status :: Lens.Lens' DescribeInstanceAccessControlAttributeConfigurationResponse (Prelude.Maybe InstanceAccessControlAttributeConfigurationStatus)
describeInstanceAccessControlAttributeConfigurationResponse_status :: Lens'
DescribeInstanceAccessControlAttributeConfigurationResponse
(Maybe InstanceAccessControlAttributeConfigurationStatus)
describeInstanceAccessControlAttributeConfigurationResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceAccessControlAttributeConfigurationResponse' {Maybe InstanceAccessControlAttributeConfigurationStatus
status :: Maybe InstanceAccessControlAttributeConfigurationStatus
$sel:status:DescribeInstanceAccessControlAttributeConfigurationResponse' :: DescribeInstanceAccessControlAttributeConfigurationResponse
-> Maybe InstanceAccessControlAttributeConfigurationStatus
status} -> Maybe InstanceAccessControlAttributeConfigurationStatus
status) (\s :: DescribeInstanceAccessControlAttributeConfigurationResponse
s@DescribeInstanceAccessControlAttributeConfigurationResponse' {} Maybe InstanceAccessControlAttributeConfigurationStatus
a -> DescribeInstanceAccessControlAttributeConfigurationResponse
s {$sel:status:DescribeInstanceAccessControlAttributeConfigurationResponse' :: Maybe InstanceAccessControlAttributeConfigurationStatus
status = Maybe InstanceAccessControlAttributeConfigurationStatus
a} :: DescribeInstanceAccessControlAttributeConfigurationResponse)
describeInstanceAccessControlAttributeConfigurationResponse_statusReason :: Lens.Lens' DescribeInstanceAccessControlAttributeConfigurationResponse (Prelude.Maybe Prelude.Text)
describeInstanceAccessControlAttributeConfigurationResponse_statusReason :: Lens'
DescribeInstanceAccessControlAttributeConfigurationResponse
(Maybe Text)
describeInstanceAccessControlAttributeConfigurationResponse_statusReason = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceAccessControlAttributeConfigurationResponse' {Maybe Text
statusReason :: Maybe Text
$sel:statusReason:DescribeInstanceAccessControlAttributeConfigurationResponse' :: DescribeInstanceAccessControlAttributeConfigurationResponse
-> Maybe Text
statusReason} -> Maybe Text
statusReason) (\s :: DescribeInstanceAccessControlAttributeConfigurationResponse
s@DescribeInstanceAccessControlAttributeConfigurationResponse' {} Maybe Text
a -> DescribeInstanceAccessControlAttributeConfigurationResponse
s {$sel:statusReason:DescribeInstanceAccessControlAttributeConfigurationResponse' :: Maybe Text
statusReason = Maybe Text
a} :: DescribeInstanceAccessControlAttributeConfigurationResponse)
describeInstanceAccessControlAttributeConfigurationResponse_httpStatus :: Lens.Lens' DescribeInstanceAccessControlAttributeConfigurationResponse Prelude.Int
describeInstanceAccessControlAttributeConfigurationResponse_httpStatus :: Lens'
DescribeInstanceAccessControlAttributeConfigurationResponse Int
describeInstanceAccessControlAttributeConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeInstanceAccessControlAttributeConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeInstanceAccessControlAttributeConfigurationResponse' :: DescribeInstanceAccessControlAttributeConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeInstanceAccessControlAttributeConfigurationResponse
s@DescribeInstanceAccessControlAttributeConfigurationResponse' {} Int
a -> DescribeInstanceAccessControlAttributeConfigurationResponse
s {$sel:httpStatus:DescribeInstanceAccessControlAttributeConfigurationResponse' :: Int
httpStatus = Int
a} :: DescribeInstanceAccessControlAttributeConfigurationResponse)
instance
Prelude.NFData
DescribeInstanceAccessControlAttributeConfigurationResponse
where
rnf :: DescribeInstanceAccessControlAttributeConfigurationResponse -> ()
rnf
DescribeInstanceAccessControlAttributeConfigurationResponse' {Int
Maybe Text
Maybe InstanceAccessControlAttributeConfiguration
Maybe InstanceAccessControlAttributeConfigurationStatus
httpStatus :: Int
statusReason :: Maybe Text
status :: Maybe InstanceAccessControlAttributeConfigurationStatus
instanceAccessControlAttributeConfiguration :: Maybe InstanceAccessControlAttributeConfiguration
$sel:httpStatus:DescribeInstanceAccessControlAttributeConfigurationResponse' :: DescribeInstanceAccessControlAttributeConfigurationResponse -> Int
$sel:statusReason:DescribeInstanceAccessControlAttributeConfigurationResponse' :: DescribeInstanceAccessControlAttributeConfigurationResponse
-> Maybe Text
$sel:status:DescribeInstanceAccessControlAttributeConfigurationResponse' :: DescribeInstanceAccessControlAttributeConfigurationResponse
-> Maybe InstanceAccessControlAttributeConfigurationStatus
$sel:instanceAccessControlAttributeConfiguration:DescribeInstanceAccessControlAttributeConfigurationResponse' :: DescribeInstanceAccessControlAttributeConfigurationResponse
-> Maybe InstanceAccessControlAttributeConfiguration
..} =
forall a. NFData a => a -> ()
Prelude.rnf
Maybe InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe InstanceAccessControlAttributeConfigurationStatus
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
statusReason
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus