{-# 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.CreateInstanceAccessControlAttributeConfiguration
(
CreateInstanceAccessControlAttributeConfiguration (..),
newCreateInstanceAccessControlAttributeConfiguration,
createInstanceAccessControlAttributeConfiguration_instanceArn,
createInstanceAccessControlAttributeConfiguration_instanceAccessControlAttributeConfiguration,
CreateInstanceAccessControlAttributeConfigurationResponse (..),
newCreateInstanceAccessControlAttributeConfigurationResponse,
createInstanceAccessControlAttributeConfigurationResponse_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 CreateInstanceAccessControlAttributeConfiguration = CreateInstanceAccessControlAttributeConfiguration'
{
CreateInstanceAccessControlAttributeConfiguration -> Text
instanceArn :: Prelude.Text,
CreateInstanceAccessControlAttributeConfiguration
-> InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration :: InstanceAccessControlAttributeConfiguration
}
deriving (CreateInstanceAccessControlAttributeConfiguration
-> CreateInstanceAccessControlAttributeConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateInstanceAccessControlAttributeConfiguration
-> CreateInstanceAccessControlAttributeConfiguration -> Bool
$c/= :: CreateInstanceAccessControlAttributeConfiguration
-> CreateInstanceAccessControlAttributeConfiguration -> Bool
== :: CreateInstanceAccessControlAttributeConfiguration
-> CreateInstanceAccessControlAttributeConfiguration -> Bool
$c== :: CreateInstanceAccessControlAttributeConfiguration
-> CreateInstanceAccessControlAttributeConfiguration -> Bool
Prelude.Eq, ReadPrec [CreateInstanceAccessControlAttributeConfiguration]
ReadPrec CreateInstanceAccessControlAttributeConfiguration
Int -> ReadS CreateInstanceAccessControlAttributeConfiguration
ReadS [CreateInstanceAccessControlAttributeConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateInstanceAccessControlAttributeConfiguration]
$creadListPrec :: ReadPrec [CreateInstanceAccessControlAttributeConfiguration]
readPrec :: ReadPrec CreateInstanceAccessControlAttributeConfiguration
$creadPrec :: ReadPrec CreateInstanceAccessControlAttributeConfiguration
readList :: ReadS [CreateInstanceAccessControlAttributeConfiguration]
$creadList :: ReadS [CreateInstanceAccessControlAttributeConfiguration]
readsPrec :: Int -> ReadS CreateInstanceAccessControlAttributeConfiguration
$creadsPrec :: Int -> ReadS CreateInstanceAccessControlAttributeConfiguration
Prelude.Read, Int -> CreateInstanceAccessControlAttributeConfiguration -> ShowS
[CreateInstanceAccessControlAttributeConfiguration] -> ShowS
CreateInstanceAccessControlAttributeConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateInstanceAccessControlAttributeConfiguration] -> ShowS
$cshowList :: [CreateInstanceAccessControlAttributeConfiguration] -> ShowS
show :: CreateInstanceAccessControlAttributeConfiguration -> String
$cshow :: CreateInstanceAccessControlAttributeConfiguration -> String
showsPrec :: Int -> CreateInstanceAccessControlAttributeConfiguration -> ShowS
$cshowsPrec :: Int -> CreateInstanceAccessControlAttributeConfiguration -> ShowS
Prelude.Show, forall x.
Rep CreateInstanceAccessControlAttributeConfiguration x
-> CreateInstanceAccessControlAttributeConfiguration
forall x.
CreateInstanceAccessControlAttributeConfiguration
-> Rep CreateInstanceAccessControlAttributeConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateInstanceAccessControlAttributeConfiguration x
-> CreateInstanceAccessControlAttributeConfiguration
$cfrom :: forall x.
CreateInstanceAccessControlAttributeConfiguration
-> Rep CreateInstanceAccessControlAttributeConfiguration x
Prelude.Generic)
newCreateInstanceAccessControlAttributeConfiguration ::
Prelude.Text ->
InstanceAccessControlAttributeConfiguration ->
CreateInstanceAccessControlAttributeConfiguration
newCreateInstanceAccessControlAttributeConfiguration :: Text
-> InstanceAccessControlAttributeConfiguration
-> CreateInstanceAccessControlAttributeConfiguration
newCreateInstanceAccessControlAttributeConfiguration
Text
pInstanceArn_
InstanceAccessControlAttributeConfiguration
pInstanceAccessControlAttributeConfiguration_ =
CreateInstanceAccessControlAttributeConfiguration'
{ $sel:instanceArn:CreateInstanceAccessControlAttributeConfiguration' :: Text
instanceArn =
Text
pInstanceArn_,
$sel:instanceAccessControlAttributeConfiguration:CreateInstanceAccessControlAttributeConfiguration' :: InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration =
InstanceAccessControlAttributeConfiguration
pInstanceAccessControlAttributeConfiguration_
}
createInstanceAccessControlAttributeConfiguration_instanceArn :: Lens.Lens' CreateInstanceAccessControlAttributeConfiguration Prelude.Text
createInstanceAccessControlAttributeConfiguration_instanceArn :: Lens' CreateInstanceAccessControlAttributeConfiguration Text
createInstanceAccessControlAttributeConfiguration_instanceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateInstanceAccessControlAttributeConfiguration' {Text
instanceArn :: Text
$sel:instanceArn:CreateInstanceAccessControlAttributeConfiguration' :: CreateInstanceAccessControlAttributeConfiguration -> Text
instanceArn} -> Text
instanceArn) (\s :: CreateInstanceAccessControlAttributeConfiguration
s@CreateInstanceAccessControlAttributeConfiguration' {} Text
a -> CreateInstanceAccessControlAttributeConfiguration
s {$sel:instanceArn:CreateInstanceAccessControlAttributeConfiguration' :: Text
instanceArn = Text
a} :: CreateInstanceAccessControlAttributeConfiguration)
createInstanceAccessControlAttributeConfiguration_instanceAccessControlAttributeConfiguration :: Lens.Lens' CreateInstanceAccessControlAttributeConfiguration InstanceAccessControlAttributeConfiguration
createInstanceAccessControlAttributeConfiguration_instanceAccessControlAttributeConfiguration :: Lens'
CreateInstanceAccessControlAttributeConfiguration
InstanceAccessControlAttributeConfiguration
createInstanceAccessControlAttributeConfiguration_instanceAccessControlAttributeConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateInstanceAccessControlAttributeConfiguration' {InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration :: InstanceAccessControlAttributeConfiguration
$sel:instanceAccessControlAttributeConfiguration:CreateInstanceAccessControlAttributeConfiguration' :: CreateInstanceAccessControlAttributeConfiguration
-> InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration} -> InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration) (\s :: CreateInstanceAccessControlAttributeConfiguration
s@CreateInstanceAccessControlAttributeConfiguration' {} InstanceAccessControlAttributeConfiguration
a -> CreateInstanceAccessControlAttributeConfiguration
s {$sel:instanceAccessControlAttributeConfiguration:CreateInstanceAccessControlAttributeConfiguration' :: InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration = InstanceAccessControlAttributeConfiguration
a} :: CreateInstanceAccessControlAttributeConfiguration)
instance
Core.AWSRequest
CreateInstanceAccessControlAttributeConfiguration
where
type
AWSResponse
CreateInstanceAccessControlAttributeConfiguration =
CreateInstanceAccessControlAttributeConfigurationResponse
request :: (Service -> Service)
-> CreateInstanceAccessControlAttributeConfiguration
-> Request CreateInstanceAccessControlAttributeConfiguration
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 CreateInstanceAccessControlAttributeConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse CreateInstanceAccessControlAttributeConfiguration)))
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 -> CreateInstanceAccessControlAttributeConfigurationResponse
CreateInstanceAccessControlAttributeConfigurationResponse'
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
CreateInstanceAccessControlAttributeConfiguration
where
hashWithSalt :: Int -> CreateInstanceAccessControlAttributeConfiguration -> Int
hashWithSalt
Int
_salt
CreateInstanceAccessControlAttributeConfiguration' {Text
InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration :: InstanceAccessControlAttributeConfiguration
instanceArn :: Text
$sel:instanceAccessControlAttributeConfiguration:CreateInstanceAccessControlAttributeConfiguration' :: CreateInstanceAccessControlAttributeConfiguration
-> InstanceAccessControlAttributeConfiguration
$sel:instanceArn:CreateInstanceAccessControlAttributeConfiguration' :: CreateInstanceAccessControlAttributeConfiguration -> 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
CreateInstanceAccessControlAttributeConfiguration
where
rnf :: CreateInstanceAccessControlAttributeConfiguration -> ()
rnf
CreateInstanceAccessControlAttributeConfiguration' {Text
InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration :: InstanceAccessControlAttributeConfiguration
instanceArn :: Text
$sel:instanceAccessControlAttributeConfiguration:CreateInstanceAccessControlAttributeConfiguration' :: CreateInstanceAccessControlAttributeConfiguration
-> InstanceAccessControlAttributeConfiguration
$sel:instanceArn:CreateInstanceAccessControlAttributeConfiguration' :: CreateInstanceAccessControlAttributeConfiguration -> 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
CreateInstanceAccessControlAttributeConfiguration
where
toHeaders :: CreateInstanceAccessControlAttributeConfiguration
-> 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.CreateInstanceAccessControlAttributeConfiguration" ::
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
CreateInstanceAccessControlAttributeConfiguration
where
toJSON :: CreateInstanceAccessControlAttributeConfiguration -> Value
toJSON
CreateInstanceAccessControlAttributeConfiguration' {Text
InstanceAccessControlAttributeConfiguration
instanceAccessControlAttributeConfiguration :: InstanceAccessControlAttributeConfiguration
instanceArn :: Text
$sel:instanceAccessControlAttributeConfiguration:CreateInstanceAccessControlAttributeConfiguration' :: CreateInstanceAccessControlAttributeConfiguration
-> InstanceAccessControlAttributeConfiguration
$sel:instanceArn:CreateInstanceAccessControlAttributeConfiguration' :: CreateInstanceAccessControlAttributeConfiguration -> 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
CreateInstanceAccessControlAttributeConfiguration
where
toPath :: CreateInstanceAccessControlAttributeConfiguration -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
CreateInstanceAccessControlAttributeConfiguration
where
toQuery :: CreateInstanceAccessControlAttributeConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateInstanceAccessControlAttributeConfigurationResponse = CreateInstanceAccessControlAttributeConfigurationResponse'
{
CreateInstanceAccessControlAttributeConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateInstanceAccessControlAttributeConfigurationResponse
-> CreateInstanceAccessControlAttributeConfigurationResponse
-> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateInstanceAccessControlAttributeConfigurationResponse
-> CreateInstanceAccessControlAttributeConfigurationResponse
-> Bool
$c/= :: CreateInstanceAccessControlAttributeConfigurationResponse
-> CreateInstanceAccessControlAttributeConfigurationResponse
-> Bool
== :: CreateInstanceAccessControlAttributeConfigurationResponse
-> CreateInstanceAccessControlAttributeConfigurationResponse
-> Bool
$c== :: CreateInstanceAccessControlAttributeConfigurationResponse
-> CreateInstanceAccessControlAttributeConfigurationResponse
-> Bool
Prelude.Eq, ReadPrec
[CreateInstanceAccessControlAttributeConfigurationResponse]
ReadPrec CreateInstanceAccessControlAttributeConfigurationResponse
Int
-> ReadS CreateInstanceAccessControlAttributeConfigurationResponse
ReadS [CreateInstanceAccessControlAttributeConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec
[CreateInstanceAccessControlAttributeConfigurationResponse]
$creadListPrec :: ReadPrec
[CreateInstanceAccessControlAttributeConfigurationResponse]
readPrec :: ReadPrec CreateInstanceAccessControlAttributeConfigurationResponse
$creadPrec :: ReadPrec CreateInstanceAccessControlAttributeConfigurationResponse
readList :: ReadS [CreateInstanceAccessControlAttributeConfigurationResponse]
$creadList :: ReadS [CreateInstanceAccessControlAttributeConfigurationResponse]
readsPrec :: Int
-> ReadS CreateInstanceAccessControlAttributeConfigurationResponse
$creadsPrec :: Int
-> ReadS CreateInstanceAccessControlAttributeConfigurationResponse
Prelude.Read, Int
-> CreateInstanceAccessControlAttributeConfigurationResponse
-> ShowS
[CreateInstanceAccessControlAttributeConfigurationResponse]
-> ShowS
CreateInstanceAccessControlAttributeConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateInstanceAccessControlAttributeConfigurationResponse]
-> ShowS
$cshowList :: [CreateInstanceAccessControlAttributeConfigurationResponse]
-> ShowS
show :: CreateInstanceAccessControlAttributeConfigurationResponse -> String
$cshow :: CreateInstanceAccessControlAttributeConfigurationResponse -> String
showsPrec :: Int
-> CreateInstanceAccessControlAttributeConfigurationResponse
-> ShowS
$cshowsPrec :: Int
-> CreateInstanceAccessControlAttributeConfigurationResponse
-> ShowS
Prelude.Show, forall x.
Rep CreateInstanceAccessControlAttributeConfigurationResponse x
-> CreateInstanceAccessControlAttributeConfigurationResponse
forall x.
CreateInstanceAccessControlAttributeConfigurationResponse
-> Rep CreateInstanceAccessControlAttributeConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateInstanceAccessControlAttributeConfigurationResponse x
-> CreateInstanceAccessControlAttributeConfigurationResponse
$cfrom :: forall x.
CreateInstanceAccessControlAttributeConfigurationResponse
-> Rep CreateInstanceAccessControlAttributeConfigurationResponse x
Prelude.Generic)
newCreateInstanceAccessControlAttributeConfigurationResponse ::
Prelude.Int ->
CreateInstanceAccessControlAttributeConfigurationResponse
newCreateInstanceAccessControlAttributeConfigurationResponse :: Int -> CreateInstanceAccessControlAttributeConfigurationResponse
newCreateInstanceAccessControlAttributeConfigurationResponse
Int
pHttpStatus_ =
CreateInstanceAccessControlAttributeConfigurationResponse'
{ $sel:httpStatus:CreateInstanceAccessControlAttributeConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
createInstanceAccessControlAttributeConfigurationResponse_httpStatus :: Lens.Lens' CreateInstanceAccessControlAttributeConfigurationResponse Prelude.Int
createInstanceAccessControlAttributeConfigurationResponse_httpStatus :: Lens' CreateInstanceAccessControlAttributeConfigurationResponse Int
createInstanceAccessControlAttributeConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateInstanceAccessControlAttributeConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateInstanceAccessControlAttributeConfigurationResponse' :: CreateInstanceAccessControlAttributeConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateInstanceAccessControlAttributeConfigurationResponse
s@CreateInstanceAccessControlAttributeConfigurationResponse' {} Int
a -> CreateInstanceAccessControlAttributeConfigurationResponse
s {$sel:httpStatus:CreateInstanceAccessControlAttributeConfigurationResponse' :: Int
httpStatus = Int
a} :: CreateInstanceAccessControlAttributeConfigurationResponse)
instance
Prelude.NFData
CreateInstanceAccessControlAttributeConfigurationResponse
where
rnf :: CreateInstanceAccessControlAttributeConfigurationResponse -> ()
rnf
CreateInstanceAccessControlAttributeConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateInstanceAccessControlAttributeConfigurationResponse' :: CreateInstanceAccessControlAttributeConfigurationResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus