{-# 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.UpdateInstanceAccessControlAttributeConfiguration
(
UpdateInstanceAccessControlAttributeConfiguration (..),
newUpdateInstanceAccessControlAttributeConfiguration,
updateInstanceAccessControlAttributeConfiguration_instanceArn,
updateInstanceAccessControlAttributeConfiguration_instanceAccessControlAttributeConfiguration,
UpdateInstanceAccessControlAttributeConfigurationResponse (..),
newUpdateInstanceAccessControlAttributeConfigurationResponse,
updateInstanceAccessControlAttributeConfigurationResponse_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 UpdateInstanceAccessControlAttributeConfiguration = UpdateInstanceAccessControlAttributeConfiguration'
{
UpdateInstanceAccessControlAttributeConfiguration -> Text
instanceArn :: Prelude.Text,
UpdateInstanceAccessControlAttributeConfiguration
-> InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration :: InstanceAccessControlAttributeConfiguration
}
deriving (UpdateInstanceAccessControlAttributeConfiguration
-> UpdateInstanceAccessControlAttributeConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateInstanceAccessControlAttributeConfiguration
-> UpdateInstanceAccessControlAttributeConfiguration -> Bool
$c/= :: UpdateInstanceAccessControlAttributeConfiguration
-> UpdateInstanceAccessControlAttributeConfiguration -> Bool
== :: UpdateInstanceAccessControlAttributeConfiguration
-> UpdateInstanceAccessControlAttributeConfiguration -> Bool
$c== :: UpdateInstanceAccessControlAttributeConfiguration
-> UpdateInstanceAccessControlAttributeConfiguration -> Bool
Prelude.Eq, ReadPrec [UpdateInstanceAccessControlAttributeConfiguration]
ReadPrec UpdateInstanceAccessControlAttributeConfiguration
Int -> ReadS UpdateInstanceAccessControlAttributeConfiguration
ReadS [UpdateInstanceAccessControlAttributeConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateInstanceAccessControlAttributeConfiguration]
$creadListPrec :: ReadPrec [UpdateInstanceAccessControlAttributeConfiguration]
readPrec :: ReadPrec UpdateInstanceAccessControlAttributeConfiguration
$creadPrec :: ReadPrec UpdateInstanceAccessControlAttributeConfiguration
readList :: ReadS [UpdateInstanceAccessControlAttributeConfiguration]
$creadList :: ReadS [UpdateInstanceAccessControlAttributeConfiguration]
readsPrec :: Int -> ReadS UpdateInstanceAccessControlAttributeConfiguration
$creadsPrec :: Int -> ReadS UpdateInstanceAccessControlAttributeConfiguration
Prelude.Read, Int -> UpdateInstanceAccessControlAttributeConfiguration -> ShowS
[UpdateInstanceAccessControlAttributeConfiguration] -> ShowS
UpdateInstanceAccessControlAttributeConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateInstanceAccessControlAttributeConfiguration] -> ShowS
$cshowList :: [UpdateInstanceAccessControlAttributeConfiguration] -> ShowS
show :: UpdateInstanceAccessControlAttributeConfiguration -> String
$cshow :: UpdateInstanceAccessControlAttributeConfiguration -> String
showsPrec :: Int -> UpdateInstanceAccessControlAttributeConfiguration -> ShowS
$cshowsPrec :: Int -> UpdateInstanceAccessControlAttributeConfiguration -> ShowS
Prelude.Show, forall x.
Rep UpdateInstanceAccessControlAttributeConfiguration x
-> UpdateInstanceAccessControlAttributeConfiguration
forall x.
UpdateInstanceAccessControlAttributeConfiguration
-> Rep UpdateInstanceAccessControlAttributeConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateInstanceAccessControlAttributeConfiguration x
-> UpdateInstanceAccessControlAttributeConfiguration
$cfrom :: forall x.
UpdateInstanceAccessControlAttributeConfiguration
-> Rep UpdateInstanceAccessControlAttributeConfiguration x
Prelude.Generic)
newUpdateInstanceAccessControlAttributeConfiguration ::
Prelude.Text ->
InstanceAccessControlAttributeConfiguration ->
UpdateInstanceAccessControlAttributeConfiguration
newUpdateInstanceAccessControlAttributeConfiguration :: Text
-> InstanceAccessControlAttributeConfiguration
-> UpdateInstanceAccessControlAttributeConfiguration
newUpdateInstanceAccessControlAttributeConfiguration
Text
pInstanceArn_
InstanceAccessControlAttributeConfiguration
pInstanceAccessControlAttributeConfiguration_ =
UpdateInstanceAccessControlAttributeConfiguration'
{ $sel:instanceArn:UpdateInstanceAccessControlAttributeConfiguration' :: Text
instanceArn =
Text
pInstanceArn_,
$sel:instanceAccessControlAttributeConfiguration:UpdateInstanceAccessControlAttributeConfiguration' :: InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration =
InstanceAccessControlAttributeConfiguration
pInstanceAccessControlAttributeConfiguration_
}
updateInstanceAccessControlAttributeConfiguration_instanceArn :: Lens.Lens' UpdateInstanceAccessControlAttributeConfiguration Prelude.Text
updateInstanceAccessControlAttributeConfiguration_instanceArn :: Lens' UpdateInstanceAccessControlAttributeConfiguration Text
updateInstanceAccessControlAttributeConfiguration_instanceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateInstanceAccessControlAttributeConfiguration' {Text
instanceArn :: Text
$sel:instanceArn:UpdateInstanceAccessControlAttributeConfiguration' :: UpdateInstanceAccessControlAttributeConfiguration -> Text
instanceArn} -> Text
instanceArn) (\s :: UpdateInstanceAccessControlAttributeConfiguration
s@UpdateInstanceAccessControlAttributeConfiguration' {} Text
a -> UpdateInstanceAccessControlAttributeConfiguration
s {$sel:instanceArn:UpdateInstanceAccessControlAttributeConfiguration' :: Text
instanceArn = Text
a} :: UpdateInstanceAccessControlAttributeConfiguration)
updateInstanceAccessControlAttributeConfiguration_instanceAccessControlAttributeConfiguration :: Lens.Lens' UpdateInstanceAccessControlAttributeConfiguration InstanceAccessControlAttributeConfiguration
updateInstanceAccessControlAttributeConfiguration_instanceAccessControlAttributeConfiguration :: Lens'
UpdateInstanceAccessControlAttributeConfiguration
InstanceAccessControlAttributeConfiguration
updateInstanceAccessControlAttributeConfiguration_instanceAccessControlAttributeConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateInstanceAccessControlAttributeConfiguration' {InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration :: InstanceAccessControlAttributeConfiguration
$sel:instanceAccessControlAttributeConfiguration:UpdateInstanceAccessControlAttributeConfiguration' :: UpdateInstanceAccessControlAttributeConfiguration
-> InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration} -> InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration) (\s :: UpdateInstanceAccessControlAttributeConfiguration
s@UpdateInstanceAccessControlAttributeConfiguration' {} InstanceAccessControlAttributeConfiguration
a -> UpdateInstanceAccessControlAttributeConfiguration
s {$sel:instanceAccessControlAttributeConfiguration:UpdateInstanceAccessControlAttributeConfiguration' :: InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration = InstanceAccessControlAttributeConfiguration
a} :: UpdateInstanceAccessControlAttributeConfiguration)
instance
Core.AWSRequest
UpdateInstanceAccessControlAttributeConfiguration
where
type
AWSResponse
UpdateInstanceAccessControlAttributeConfiguration =
UpdateInstanceAccessControlAttributeConfigurationResponse
request :: (Service -> Service)
-> UpdateInstanceAccessControlAttributeConfiguration
-> Request UpdateInstanceAccessControlAttributeConfiguration
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 UpdateInstanceAccessControlAttributeConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse UpdateInstanceAccessControlAttributeConfiguration)))
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 -> UpdateInstanceAccessControlAttributeConfigurationResponse
UpdateInstanceAccessControlAttributeConfigurationResponse'
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
UpdateInstanceAccessControlAttributeConfiguration
where
hashWithSalt :: Int -> UpdateInstanceAccessControlAttributeConfiguration -> Int
hashWithSalt
Int
_salt
UpdateInstanceAccessControlAttributeConfiguration' {Text
InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration :: InstanceAccessControlAttributeConfiguration
instanceArn :: Text
$sel:instanceAccessControlAttributeConfiguration:UpdateInstanceAccessControlAttributeConfiguration' :: UpdateInstanceAccessControlAttributeConfiguration
-> InstanceAccessControlAttributeConfiguration
$sel:instanceArn:UpdateInstanceAccessControlAttributeConfiguration' :: UpdateInstanceAccessControlAttributeConfiguration -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
instanceArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration
instance
Prelude.NFData
UpdateInstanceAccessControlAttributeConfiguration
where
rnf :: UpdateInstanceAccessControlAttributeConfiguration -> ()
rnf
UpdateInstanceAccessControlAttributeConfiguration' {Text
InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration :: InstanceAccessControlAttributeConfiguration
instanceArn :: Text
$sel:instanceAccessControlAttributeConfiguration:UpdateInstanceAccessControlAttributeConfiguration' :: UpdateInstanceAccessControlAttributeConfiguration
-> InstanceAccessControlAttributeConfiguration
$sel:instanceArn:UpdateInstanceAccessControlAttributeConfiguration' :: UpdateInstanceAccessControlAttributeConfiguration -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
instanceArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration
instance
Data.ToHeaders
UpdateInstanceAccessControlAttributeConfiguration
where
toHeaders :: UpdateInstanceAccessControlAttributeConfiguration
-> 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.UpdateInstanceAccessControlAttributeConfiguration" ::
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
UpdateInstanceAccessControlAttributeConfiguration
where
toJSON :: UpdateInstanceAccessControlAttributeConfiguration -> Value
toJSON
UpdateInstanceAccessControlAttributeConfiguration' {Text
InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration :: InstanceAccessControlAttributeConfiguration
instanceArn :: Text
$sel:instanceAccessControlAttributeConfiguration:UpdateInstanceAccessControlAttributeConfiguration' :: UpdateInstanceAccessControlAttributeConfiguration
-> InstanceAccessControlAttributeConfiguration
$sel:instanceArn:UpdateInstanceAccessControlAttributeConfiguration' :: UpdateInstanceAccessControlAttributeConfiguration -> 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),
forall a. a -> Maybe a
Prelude.Just
( Key
"InstanceAccessControlAttributeConfiguration"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration
)
]
)
instance
Data.ToPath
UpdateInstanceAccessControlAttributeConfiguration
where
toPath :: UpdateInstanceAccessControlAttributeConfiguration -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
UpdateInstanceAccessControlAttributeConfiguration
where
toQuery :: UpdateInstanceAccessControlAttributeConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateInstanceAccessControlAttributeConfigurationResponse = UpdateInstanceAccessControlAttributeConfigurationResponse'
{
UpdateInstanceAccessControlAttributeConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateInstanceAccessControlAttributeConfigurationResponse
-> UpdateInstanceAccessControlAttributeConfigurationResponse
-> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateInstanceAccessControlAttributeConfigurationResponse
-> UpdateInstanceAccessControlAttributeConfigurationResponse
-> Bool
$c/= :: UpdateInstanceAccessControlAttributeConfigurationResponse
-> UpdateInstanceAccessControlAttributeConfigurationResponse
-> Bool
== :: UpdateInstanceAccessControlAttributeConfigurationResponse
-> UpdateInstanceAccessControlAttributeConfigurationResponse
-> Bool
$c== :: UpdateInstanceAccessControlAttributeConfigurationResponse
-> UpdateInstanceAccessControlAttributeConfigurationResponse
-> Bool
Prelude.Eq, ReadPrec
[UpdateInstanceAccessControlAttributeConfigurationResponse]
ReadPrec UpdateInstanceAccessControlAttributeConfigurationResponse
Int
-> ReadS UpdateInstanceAccessControlAttributeConfigurationResponse
ReadS [UpdateInstanceAccessControlAttributeConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec
[UpdateInstanceAccessControlAttributeConfigurationResponse]
$creadListPrec :: ReadPrec
[UpdateInstanceAccessControlAttributeConfigurationResponse]
readPrec :: ReadPrec UpdateInstanceAccessControlAttributeConfigurationResponse
$creadPrec :: ReadPrec UpdateInstanceAccessControlAttributeConfigurationResponse
readList :: ReadS [UpdateInstanceAccessControlAttributeConfigurationResponse]
$creadList :: ReadS [UpdateInstanceAccessControlAttributeConfigurationResponse]
readsPrec :: Int
-> ReadS UpdateInstanceAccessControlAttributeConfigurationResponse
$creadsPrec :: Int
-> ReadS UpdateInstanceAccessControlAttributeConfigurationResponse
Prelude.Read, Int
-> UpdateInstanceAccessControlAttributeConfigurationResponse
-> ShowS
[UpdateInstanceAccessControlAttributeConfigurationResponse]
-> ShowS
UpdateInstanceAccessControlAttributeConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateInstanceAccessControlAttributeConfigurationResponse]
-> ShowS
$cshowList :: [UpdateInstanceAccessControlAttributeConfigurationResponse]
-> ShowS
show :: UpdateInstanceAccessControlAttributeConfigurationResponse -> String
$cshow :: UpdateInstanceAccessControlAttributeConfigurationResponse -> String
showsPrec :: Int
-> UpdateInstanceAccessControlAttributeConfigurationResponse
-> ShowS
$cshowsPrec :: Int
-> UpdateInstanceAccessControlAttributeConfigurationResponse
-> ShowS
Prelude.Show, forall x.
Rep UpdateInstanceAccessControlAttributeConfigurationResponse x
-> UpdateInstanceAccessControlAttributeConfigurationResponse
forall x.
UpdateInstanceAccessControlAttributeConfigurationResponse
-> Rep UpdateInstanceAccessControlAttributeConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateInstanceAccessControlAttributeConfigurationResponse x
-> UpdateInstanceAccessControlAttributeConfigurationResponse
$cfrom :: forall x.
UpdateInstanceAccessControlAttributeConfigurationResponse
-> Rep UpdateInstanceAccessControlAttributeConfigurationResponse x
Prelude.Generic)
newUpdateInstanceAccessControlAttributeConfigurationResponse ::
Prelude.Int ->
UpdateInstanceAccessControlAttributeConfigurationResponse
newUpdateInstanceAccessControlAttributeConfigurationResponse :: Int -> UpdateInstanceAccessControlAttributeConfigurationResponse
newUpdateInstanceAccessControlAttributeConfigurationResponse
Int
pHttpStatus_ =
UpdateInstanceAccessControlAttributeConfigurationResponse'
{ $sel:httpStatus:UpdateInstanceAccessControlAttributeConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
updateInstanceAccessControlAttributeConfigurationResponse_httpStatus :: Lens.Lens' UpdateInstanceAccessControlAttributeConfigurationResponse Prelude.Int
updateInstanceAccessControlAttributeConfigurationResponse_httpStatus :: Lens' UpdateInstanceAccessControlAttributeConfigurationResponse Int
updateInstanceAccessControlAttributeConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateInstanceAccessControlAttributeConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateInstanceAccessControlAttributeConfigurationResponse' :: UpdateInstanceAccessControlAttributeConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateInstanceAccessControlAttributeConfigurationResponse
s@UpdateInstanceAccessControlAttributeConfigurationResponse' {} Int
a -> UpdateInstanceAccessControlAttributeConfigurationResponse
s {$sel:httpStatus:UpdateInstanceAccessControlAttributeConfigurationResponse' :: Int
httpStatus = Int
a} :: UpdateInstanceAccessControlAttributeConfigurationResponse)
instance
Prelude.NFData
UpdateInstanceAccessControlAttributeConfigurationResponse
where
rnf :: UpdateInstanceAccessControlAttributeConfigurationResponse -> ()
rnf
UpdateInstanceAccessControlAttributeConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateInstanceAccessControlAttributeConfigurationResponse' :: UpdateInstanceAccessControlAttributeConfigurationResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus