{-# 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.Nimble.StartStudioSSOConfigurationRepair
(
StartStudioSSOConfigurationRepair (..),
newStartStudioSSOConfigurationRepair,
startStudioSSOConfigurationRepair_clientToken,
startStudioSSOConfigurationRepair_studioId,
StartStudioSSOConfigurationRepairResponse (..),
newStartStudioSSOConfigurationRepairResponse,
startStudioSSOConfigurationRepairResponse_httpStatus,
startStudioSSOConfigurationRepairResponse_studio,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Nimble.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data StartStudioSSOConfigurationRepair = StartStudioSSOConfigurationRepair'
{
StartStudioSSOConfigurationRepair -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
StartStudioSSOConfigurationRepair -> Text
studioId :: Prelude.Text
}
deriving (StartStudioSSOConfigurationRepair
-> StartStudioSSOConfigurationRepair -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartStudioSSOConfigurationRepair
-> StartStudioSSOConfigurationRepair -> Bool
$c/= :: StartStudioSSOConfigurationRepair
-> StartStudioSSOConfigurationRepair -> Bool
== :: StartStudioSSOConfigurationRepair
-> StartStudioSSOConfigurationRepair -> Bool
$c== :: StartStudioSSOConfigurationRepair
-> StartStudioSSOConfigurationRepair -> Bool
Prelude.Eq, ReadPrec [StartStudioSSOConfigurationRepair]
ReadPrec StartStudioSSOConfigurationRepair
Int -> ReadS StartStudioSSOConfigurationRepair
ReadS [StartStudioSSOConfigurationRepair]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartStudioSSOConfigurationRepair]
$creadListPrec :: ReadPrec [StartStudioSSOConfigurationRepair]
readPrec :: ReadPrec StartStudioSSOConfigurationRepair
$creadPrec :: ReadPrec StartStudioSSOConfigurationRepair
readList :: ReadS [StartStudioSSOConfigurationRepair]
$creadList :: ReadS [StartStudioSSOConfigurationRepair]
readsPrec :: Int -> ReadS StartStudioSSOConfigurationRepair
$creadsPrec :: Int -> ReadS StartStudioSSOConfigurationRepair
Prelude.Read, Int -> StartStudioSSOConfigurationRepair -> ShowS
[StartStudioSSOConfigurationRepair] -> ShowS
StartStudioSSOConfigurationRepair -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartStudioSSOConfigurationRepair] -> ShowS
$cshowList :: [StartStudioSSOConfigurationRepair] -> ShowS
show :: StartStudioSSOConfigurationRepair -> String
$cshow :: StartStudioSSOConfigurationRepair -> String
showsPrec :: Int -> StartStudioSSOConfigurationRepair -> ShowS
$cshowsPrec :: Int -> StartStudioSSOConfigurationRepair -> ShowS
Prelude.Show, forall x.
Rep StartStudioSSOConfigurationRepair x
-> StartStudioSSOConfigurationRepair
forall x.
StartStudioSSOConfigurationRepair
-> Rep StartStudioSSOConfigurationRepair x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StartStudioSSOConfigurationRepair x
-> StartStudioSSOConfigurationRepair
$cfrom :: forall x.
StartStudioSSOConfigurationRepair
-> Rep StartStudioSSOConfigurationRepair x
Prelude.Generic)
newStartStudioSSOConfigurationRepair ::
Prelude.Text ->
StartStudioSSOConfigurationRepair
newStartStudioSSOConfigurationRepair :: Text -> StartStudioSSOConfigurationRepair
newStartStudioSSOConfigurationRepair Text
pStudioId_ =
StartStudioSSOConfigurationRepair'
{ $sel:clientToken:StartStudioSSOConfigurationRepair' :: Maybe Text
clientToken =
forall a. Maybe a
Prelude.Nothing,
$sel:studioId:StartStudioSSOConfigurationRepair' :: Text
studioId = Text
pStudioId_
}
startStudioSSOConfigurationRepair_clientToken :: Lens.Lens' StartStudioSSOConfigurationRepair (Prelude.Maybe Prelude.Text)
startStudioSSOConfigurationRepair_clientToken :: Lens' StartStudioSSOConfigurationRepair (Maybe Text)
startStudioSSOConfigurationRepair_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartStudioSSOConfigurationRepair' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:StartStudioSSOConfigurationRepair' :: StartStudioSSOConfigurationRepair -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: StartStudioSSOConfigurationRepair
s@StartStudioSSOConfigurationRepair' {} Maybe Text
a -> StartStudioSSOConfigurationRepair
s {$sel:clientToken:StartStudioSSOConfigurationRepair' :: Maybe Text
clientToken = Maybe Text
a} :: StartStudioSSOConfigurationRepair)
startStudioSSOConfigurationRepair_studioId :: Lens.Lens' StartStudioSSOConfigurationRepair Prelude.Text
startStudioSSOConfigurationRepair_studioId :: Lens' StartStudioSSOConfigurationRepair Text
startStudioSSOConfigurationRepair_studioId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartStudioSSOConfigurationRepair' {Text
studioId :: Text
$sel:studioId:StartStudioSSOConfigurationRepair' :: StartStudioSSOConfigurationRepair -> Text
studioId} -> Text
studioId) (\s :: StartStudioSSOConfigurationRepair
s@StartStudioSSOConfigurationRepair' {} Text
a -> StartStudioSSOConfigurationRepair
s {$sel:studioId:StartStudioSSOConfigurationRepair' :: Text
studioId = Text
a} :: StartStudioSSOConfigurationRepair)
instance
Core.AWSRequest
StartStudioSSOConfigurationRepair
where
type
AWSResponse StartStudioSSOConfigurationRepair =
StartStudioSSOConfigurationRepairResponse
request :: (Service -> Service)
-> StartStudioSSOConfigurationRepair
-> Request StartStudioSSOConfigurationRepair
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy StartStudioSSOConfigurationRepair
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse StartStudioSSOConfigurationRepair)))
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 ->
Int -> Studio -> StartStudioSSOConfigurationRepairResponse
StartStudioSSOConfigurationRepairResponse'
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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"studio")
)
instance
Prelude.Hashable
StartStudioSSOConfigurationRepair
where
hashWithSalt :: Int -> StartStudioSSOConfigurationRepair -> Int
hashWithSalt
Int
_salt
StartStudioSSOConfigurationRepair' {Maybe Text
Text
studioId :: Text
clientToken :: Maybe Text
$sel:studioId:StartStudioSSOConfigurationRepair' :: StartStudioSSOConfigurationRepair -> Text
$sel:clientToken:StartStudioSSOConfigurationRepair' :: StartStudioSSOConfigurationRepair -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
studioId
instance
Prelude.NFData
StartStudioSSOConfigurationRepair
where
rnf :: StartStudioSSOConfigurationRepair -> ()
rnf StartStudioSSOConfigurationRepair' {Maybe Text
Text
studioId :: Text
clientToken :: Maybe Text
$sel:studioId:StartStudioSSOConfigurationRepair' :: StartStudioSSOConfigurationRepair -> Text
$sel:clientToken:StartStudioSSOConfigurationRepair' :: StartStudioSSOConfigurationRepair -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
studioId
instance
Data.ToHeaders
StartStudioSSOConfigurationRepair
where
toHeaders :: StartStudioSSOConfigurationRepair -> ResponseHeaders
toHeaders StartStudioSSOConfigurationRepair' {Maybe Text
Text
studioId :: Text
clientToken :: Maybe Text
$sel:studioId:StartStudioSSOConfigurationRepair' :: StartStudioSSOConfigurationRepair -> Text
$sel:clientToken:StartStudioSSOConfigurationRepair' :: StartStudioSSOConfigurationRepair -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Client-Token" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
clientToken,
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# (ByteString
"application/x-amz-json-1.1" :: Prelude.ByteString)
]
instance
Data.ToJSON
StartStudioSSOConfigurationRepair
where
toJSON :: StartStudioSSOConfigurationRepair -> Value
toJSON = forall a b. a -> b -> a
Prelude.const (Object -> Value
Data.Object forall a. Monoid a => a
Prelude.mempty)
instance
Data.ToPath
StartStudioSSOConfigurationRepair
where
toPath :: StartStudioSSOConfigurationRepair -> ByteString
toPath StartStudioSSOConfigurationRepair' {Maybe Text
Text
studioId :: Text
clientToken :: Maybe Text
$sel:studioId:StartStudioSSOConfigurationRepair' :: StartStudioSSOConfigurationRepair -> Text
$sel:clientToken:StartStudioSSOConfigurationRepair' :: StartStudioSSOConfigurationRepair -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/2020-08-01/studios/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
studioId,
ByteString
"/sso-configuration"
]
instance
Data.ToQuery
StartStudioSSOConfigurationRepair
where
toQuery :: StartStudioSSOConfigurationRepair -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data StartStudioSSOConfigurationRepairResponse = StartStudioSSOConfigurationRepairResponse'
{
StartStudioSSOConfigurationRepairResponse -> Int
httpStatus :: Prelude.Int,
StartStudioSSOConfigurationRepairResponse -> Studio
studio :: Studio
}
deriving (StartStudioSSOConfigurationRepairResponse
-> StartStudioSSOConfigurationRepairResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartStudioSSOConfigurationRepairResponse
-> StartStudioSSOConfigurationRepairResponse -> Bool
$c/= :: StartStudioSSOConfigurationRepairResponse
-> StartStudioSSOConfigurationRepairResponse -> Bool
== :: StartStudioSSOConfigurationRepairResponse
-> StartStudioSSOConfigurationRepairResponse -> Bool
$c== :: StartStudioSSOConfigurationRepairResponse
-> StartStudioSSOConfigurationRepairResponse -> Bool
Prelude.Eq, Int -> StartStudioSSOConfigurationRepairResponse -> ShowS
[StartStudioSSOConfigurationRepairResponse] -> ShowS
StartStudioSSOConfigurationRepairResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartStudioSSOConfigurationRepairResponse] -> ShowS
$cshowList :: [StartStudioSSOConfigurationRepairResponse] -> ShowS
show :: StartStudioSSOConfigurationRepairResponse -> String
$cshow :: StartStudioSSOConfigurationRepairResponse -> String
showsPrec :: Int -> StartStudioSSOConfigurationRepairResponse -> ShowS
$cshowsPrec :: Int -> StartStudioSSOConfigurationRepairResponse -> ShowS
Prelude.Show, forall x.
Rep StartStudioSSOConfigurationRepairResponse x
-> StartStudioSSOConfigurationRepairResponse
forall x.
StartStudioSSOConfigurationRepairResponse
-> Rep StartStudioSSOConfigurationRepairResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StartStudioSSOConfigurationRepairResponse x
-> StartStudioSSOConfigurationRepairResponse
$cfrom :: forall x.
StartStudioSSOConfigurationRepairResponse
-> Rep StartStudioSSOConfigurationRepairResponse x
Prelude.Generic)
newStartStudioSSOConfigurationRepairResponse ::
Prelude.Int ->
Studio ->
StartStudioSSOConfigurationRepairResponse
newStartStudioSSOConfigurationRepairResponse :: Int -> Studio -> StartStudioSSOConfigurationRepairResponse
newStartStudioSSOConfigurationRepairResponse
Int
pHttpStatus_
Studio
pStudio_ =
StartStudioSSOConfigurationRepairResponse'
{ $sel:httpStatus:StartStudioSSOConfigurationRepairResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:studio:StartStudioSSOConfigurationRepairResponse' :: Studio
studio = Studio
pStudio_
}
startStudioSSOConfigurationRepairResponse_httpStatus :: Lens.Lens' StartStudioSSOConfigurationRepairResponse Prelude.Int
startStudioSSOConfigurationRepairResponse_httpStatus :: Lens' StartStudioSSOConfigurationRepairResponse Int
startStudioSSOConfigurationRepairResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartStudioSSOConfigurationRepairResponse' {Int
httpStatus :: Int
$sel:httpStatus:StartStudioSSOConfigurationRepairResponse' :: StartStudioSSOConfigurationRepairResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: StartStudioSSOConfigurationRepairResponse
s@StartStudioSSOConfigurationRepairResponse' {} Int
a -> StartStudioSSOConfigurationRepairResponse
s {$sel:httpStatus:StartStudioSSOConfigurationRepairResponse' :: Int
httpStatus = Int
a} :: StartStudioSSOConfigurationRepairResponse)
startStudioSSOConfigurationRepairResponse_studio :: Lens.Lens' StartStudioSSOConfigurationRepairResponse Studio
startStudioSSOConfigurationRepairResponse_studio :: Lens' StartStudioSSOConfigurationRepairResponse Studio
startStudioSSOConfigurationRepairResponse_studio = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartStudioSSOConfigurationRepairResponse' {Studio
studio :: Studio
$sel:studio:StartStudioSSOConfigurationRepairResponse' :: StartStudioSSOConfigurationRepairResponse -> Studio
studio} -> Studio
studio) (\s :: StartStudioSSOConfigurationRepairResponse
s@StartStudioSSOConfigurationRepairResponse' {} Studio
a -> StartStudioSSOConfigurationRepairResponse
s {$sel:studio:StartStudioSSOConfigurationRepairResponse' :: Studio
studio = Studio
a} :: StartStudioSSOConfigurationRepairResponse)
instance
Prelude.NFData
StartStudioSSOConfigurationRepairResponse
where
rnf :: StartStudioSSOConfigurationRepairResponse -> ()
rnf StartStudioSSOConfigurationRepairResponse' {Int
Studio
studio :: Studio
httpStatus :: Int
$sel:studio:StartStudioSSOConfigurationRepairResponse' :: StartStudioSSOConfigurationRepairResponse -> Studio
$sel:httpStatus:StartStudioSSOConfigurationRepairResponse' :: StartStudioSSOConfigurationRepairResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Studio
studio