{-# 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.Grafana.DescribeWorkspaceConfiguration
(
DescribeWorkspaceConfiguration (..),
newDescribeWorkspaceConfiguration,
describeWorkspaceConfiguration_workspaceId,
DescribeWorkspaceConfigurationResponse (..),
newDescribeWorkspaceConfigurationResponse,
describeWorkspaceConfigurationResponse_httpStatus,
describeWorkspaceConfigurationResponse_configuration,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Grafana.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeWorkspaceConfiguration = DescribeWorkspaceConfiguration'
{
DescribeWorkspaceConfiguration -> Text
workspaceId :: Prelude.Text
}
deriving (DescribeWorkspaceConfiguration
-> DescribeWorkspaceConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeWorkspaceConfiguration
-> DescribeWorkspaceConfiguration -> Bool
$c/= :: DescribeWorkspaceConfiguration
-> DescribeWorkspaceConfiguration -> Bool
== :: DescribeWorkspaceConfiguration
-> DescribeWorkspaceConfiguration -> Bool
$c== :: DescribeWorkspaceConfiguration
-> DescribeWorkspaceConfiguration -> Bool
Prelude.Eq, ReadPrec [DescribeWorkspaceConfiguration]
ReadPrec DescribeWorkspaceConfiguration
Int -> ReadS DescribeWorkspaceConfiguration
ReadS [DescribeWorkspaceConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeWorkspaceConfiguration]
$creadListPrec :: ReadPrec [DescribeWorkspaceConfiguration]
readPrec :: ReadPrec DescribeWorkspaceConfiguration
$creadPrec :: ReadPrec DescribeWorkspaceConfiguration
readList :: ReadS [DescribeWorkspaceConfiguration]
$creadList :: ReadS [DescribeWorkspaceConfiguration]
readsPrec :: Int -> ReadS DescribeWorkspaceConfiguration
$creadsPrec :: Int -> ReadS DescribeWorkspaceConfiguration
Prelude.Read, Int -> DescribeWorkspaceConfiguration -> ShowS
[DescribeWorkspaceConfiguration] -> ShowS
DescribeWorkspaceConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeWorkspaceConfiguration] -> ShowS
$cshowList :: [DescribeWorkspaceConfiguration] -> ShowS
show :: DescribeWorkspaceConfiguration -> String
$cshow :: DescribeWorkspaceConfiguration -> String
showsPrec :: Int -> DescribeWorkspaceConfiguration -> ShowS
$cshowsPrec :: Int -> DescribeWorkspaceConfiguration -> ShowS
Prelude.Show, forall x.
Rep DescribeWorkspaceConfiguration x
-> DescribeWorkspaceConfiguration
forall x.
DescribeWorkspaceConfiguration
-> Rep DescribeWorkspaceConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeWorkspaceConfiguration x
-> DescribeWorkspaceConfiguration
$cfrom :: forall x.
DescribeWorkspaceConfiguration
-> Rep DescribeWorkspaceConfiguration x
Prelude.Generic)
newDescribeWorkspaceConfiguration ::
Prelude.Text ->
DescribeWorkspaceConfiguration
newDescribeWorkspaceConfiguration :: Text -> DescribeWorkspaceConfiguration
newDescribeWorkspaceConfiguration Text
pWorkspaceId_ =
DescribeWorkspaceConfiguration'
{ $sel:workspaceId:DescribeWorkspaceConfiguration' :: Text
workspaceId =
Text
pWorkspaceId_
}
describeWorkspaceConfiguration_workspaceId :: Lens.Lens' DescribeWorkspaceConfiguration Prelude.Text
describeWorkspaceConfiguration_workspaceId :: Lens' DescribeWorkspaceConfiguration Text
describeWorkspaceConfiguration_workspaceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeWorkspaceConfiguration' {Text
workspaceId :: Text
$sel:workspaceId:DescribeWorkspaceConfiguration' :: DescribeWorkspaceConfiguration -> Text
workspaceId} -> Text
workspaceId) (\s :: DescribeWorkspaceConfiguration
s@DescribeWorkspaceConfiguration' {} Text
a -> DescribeWorkspaceConfiguration
s {$sel:workspaceId:DescribeWorkspaceConfiguration' :: Text
workspaceId = Text
a} :: DescribeWorkspaceConfiguration)
instance
Core.AWSRequest
DescribeWorkspaceConfiguration
where
type
AWSResponse DescribeWorkspaceConfiguration =
DescribeWorkspaceConfigurationResponse
request :: (Service -> Service)
-> DescribeWorkspaceConfiguration
-> Request DescribeWorkspaceConfiguration
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeWorkspaceConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DescribeWorkspaceConfiguration)))
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 -> Text -> DescribeWorkspaceConfigurationResponse
DescribeWorkspaceConfigurationResponse'
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
"configuration")
)
instance
Prelude.Hashable
DescribeWorkspaceConfiguration
where
hashWithSalt :: Int -> DescribeWorkspaceConfiguration -> Int
hashWithSalt
Int
_salt
DescribeWorkspaceConfiguration' {Text
workspaceId :: Text
$sel:workspaceId:DescribeWorkspaceConfiguration' :: DescribeWorkspaceConfiguration -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
workspaceId
instance
Prelude.NFData
DescribeWorkspaceConfiguration
where
rnf :: DescribeWorkspaceConfiguration -> ()
rnf DescribeWorkspaceConfiguration' {Text
workspaceId :: Text
$sel:workspaceId:DescribeWorkspaceConfiguration' :: DescribeWorkspaceConfiguration -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
workspaceId
instance
Data.ToHeaders
DescribeWorkspaceConfiguration
where
toHeaders :: DescribeWorkspaceConfiguration -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath DescribeWorkspaceConfiguration where
toPath :: DescribeWorkspaceConfiguration -> ByteString
toPath DescribeWorkspaceConfiguration' {Text
workspaceId :: Text
$sel:workspaceId:DescribeWorkspaceConfiguration' :: DescribeWorkspaceConfiguration -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/workspaces/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
workspaceId,
ByteString
"/configuration"
]
instance Data.ToQuery DescribeWorkspaceConfiguration where
toQuery :: DescribeWorkspaceConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeWorkspaceConfigurationResponse = DescribeWorkspaceConfigurationResponse'
{
DescribeWorkspaceConfigurationResponse -> Int
httpStatus :: Prelude.Int,
DescribeWorkspaceConfigurationResponse -> Text
configuration :: Prelude.Text
}
deriving (DescribeWorkspaceConfigurationResponse
-> DescribeWorkspaceConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeWorkspaceConfigurationResponse
-> DescribeWorkspaceConfigurationResponse -> Bool
$c/= :: DescribeWorkspaceConfigurationResponse
-> DescribeWorkspaceConfigurationResponse -> Bool
== :: DescribeWorkspaceConfigurationResponse
-> DescribeWorkspaceConfigurationResponse -> Bool
$c== :: DescribeWorkspaceConfigurationResponse
-> DescribeWorkspaceConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [DescribeWorkspaceConfigurationResponse]
ReadPrec DescribeWorkspaceConfigurationResponse
Int -> ReadS DescribeWorkspaceConfigurationResponse
ReadS [DescribeWorkspaceConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeWorkspaceConfigurationResponse]
$creadListPrec :: ReadPrec [DescribeWorkspaceConfigurationResponse]
readPrec :: ReadPrec DescribeWorkspaceConfigurationResponse
$creadPrec :: ReadPrec DescribeWorkspaceConfigurationResponse
readList :: ReadS [DescribeWorkspaceConfigurationResponse]
$creadList :: ReadS [DescribeWorkspaceConfigurationResponse]
readsPrec :: Int -> ReadS DescribeWorkspaceConfigurationResponse
$creadsPrec :: Int -> ReadS DescribeWorkspaceConfigurationResponse
Prelude.Read, Int -> DescribeWorkspaceConfigurationResponse -> ShowS
[DescribeWorkspaceConfigurationResponse] -> ShowS
DescribeWorkspaceConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeWorkspaceConfigurationResponse] -> ShowS
$cshowList :: [DescribeWorkspaceConfigurationResponse] -> ShowS
show :: DescribeWorkspaceConfigurationResponse -> String
$cshow :: DescribeWorkspaceConfigurationResponse -> String
showsPrec :: Int -> DescribeWorkspaceConfigurationResponse -> ShowS
$cshowsPrec :: Int -> DescribeWorkspaceConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeWorkspaceConfigurationResponse x
-> DescribeWorkspaceConfigurationResponse
forall x.
DescribeWorkspaceConfigurationResponse
-> Rep DescribeWorkspaceConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeWorkspaceConfigurationResponse x
-> DescribeWorkspaceConfigurationResponse
$cfrom :: forall x.
DescribeWorkspaceConfigurationResponse
-> Rep DescribeWorkspaceConfigurationResponse x
Prelude.Generic)
newDescribeWorkspaceConfigurationResponse ::
Prelude.Int ->
Prelude.Text ->
DescribeWorkspaceConfigurationResponse
newDescribeWorkspaceConfigurationResponse :: Int -> Text -> DescribeWorkspaceConfigurationResponse
newDescribeWorkspaceConfigurationResponse
Int
pHttpStatus_
Text
pConfiguration_ =
DescribeWorkspaceConfigurationResponse'
{ $sel:httpStatus:DescribeWorkspaceConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:configuration:DescribeWorkspaceConfigurationResponse' :: Text
configuration = Text
pConfiguration_
}
describeWorkspaceConfigurationResponse_httpStatus :: Lens.Lens' DescribeWorkspaceConfigurationResponse Prelude.Int
describeWorkspaceConfigurationResponse_httpStatus :: Lens' DescribeWorkspaceConfigurationResponse Int
describeWorkspaceConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeWorkspaceConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeWorkspaceConfigurationResponse' :: DescribeWorkspaceConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeWorkspaceConfigurationResponse
s@DescribeWorkspaceConfigurationResponse' {} Int
a -> DescribeWorkspaceConfigurationResponse
s {$sel:httpStatus:DescribeWorkspaceConfigurationResponse' :: Int
httpStatus = Int
a} :: DescribeWorkspaceConfigurationResponse)
describeWorkspaceConfigurationResponse_configuration :: Lens.Lens' DescribeWorkspaceConfigurationResponse Prelude.Text
describeWorkspaceConfigurationResponse_configuration :: Lens' DescribeWorkspaceConfigurationResponse Text
describeWorkspaceConfigurationResponse_configuration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeWorkspaceConfigurationResponse' {Text
configuration :: Text
$sel:configuration:DescribeWorkspaceConfigurationResponse' :: DescribeWorkspaceConfigurationResponse -> Text
configuration} -> Text
configuration) (\s :: DescribeWorkspaceConfigurationResponse
s@DescribeWorkspaceConfigurationResponse' {} Text
a -> DescribeWorkspaceConfigurationResponse
s {$sel:configuration:DescribeWorkspaceConfigurationResponse' :: Text
configuration = Text
a} :: DescribeWorkspaceConfigurationResponse)
instance
Prelude.NFData
DescribeWorkspaceConfigurationResponse
where
rnf :: DescribeWorkspaceConfigurationResponse -> ()
rnf DescribeWorkspaceConfigurationResponse' {Int
Text
configuration :: Text
httpStatus :: Int
$sel:configuration:DescribeWorkspaceConfigurationResponse' :: DescribeWorkspaceConfigurationResponse -> Text
$sel:httpStatus:DescribeWorkspaceConfigurationResponse' :: DescribeWorkspaceConfigurationResponse -> 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 Text
configuration