{-# 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.AppRunner.CreateObservabilityConfiguration
(
CreateObservabilityConfiguration (..),
newCreateObservabilityConfiguration,
createObservabilityConfiguration_tags,
createObservabilityConfiguration_traceConfiguration,
createObservabilityConfiguration_observabilityConfigurationName,
CreateObservabilityConfigurationResponse (..),
newCreateObservabilityConfigurationResponse,
createObservabilityConfigurationResponse_httpStatus,
createObservabilityConfigurationResponse_observabilityConfiguration,
)
where
import Amazonka.AppRunner.Types
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
data CreateObservabilityConfiguration = CreateObservabilityConfiguration'
{
CreateObservabilityConfiguration -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateObservabilityConfiguration -> Maybe TraceConfiguration
traceConfiguration :: Prelude.Maybe TraceConfiguration,
CreateObservabilityConfiguration -> Text
observabilityConfigurationName :: Prelude.Text
}
deriving (CreateObservabilityConfiguration
-> CreateObservabilityConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateObservabilityConfiguration
-> CreateObservabilityConfiguration -> Bool
$c/= :: CreateObservabilityConfiguration
-> CreateObservabilityConfiguration -> Bool
== :: CreateObservabilityConfiguration
-> CreateObservabilityConfiguration -> Bool
$c== :: CreateObservabilityConfiguration
-> CreateObservabilityConfiguration -> Bool
Prelude.Eq, ReadPrec [CreateObservabilityConfiguration]
ReadPrec CreateObservabilityConfiguration
Int -> ReadS CreateObservabilityConfiguration
ReadS [CreateObservabilityConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateObservabilityConfiguration]
$creadListPrec :: ReadPrec [CreateObservabilityConfiguration]
readPrec :: ReadPrec CreateObservabilityConfiguration
$creadPrec :: ReadPrec CreateObservabilityConfiguration
readList :: ReadS [CreateObservabilityConfiguration]
$creadList :: ReadS [CreateObservabilityConfiguration]
readsPrec :: Int -> ReadS CreateObservabilityConfiguration
$creadsPrec :: Int -> ReadS CreateObservabilityConfiguration
Prelude.Read, Int -> CreateObservabilityConfiguration -> ShowS
[CreateObservabilityConfiguration] -> ShowS
CreateObservabilityConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateObservabilityConfiguration] -> ShowS
$cshowList :: [CreateObservabilityConfiguration] -> ShowS
show :: CreateObservabilityConfiguration -> String
$cshow :: CreateObservabilityConfiguration -> String
showsPrec :: Int -> CreateObservabilityConfiguration -> ShowS
$cshowsPrec :: Int -> CreateObservabilityConfiguration -> ShowS
Prelude.Show, forall x.
Rep CreateObservabilityConfiguration x
-> CreateObservabilityConfiguration
forall x.
CreateObservabilityConfiguration
-> Rep CreateObservabilityConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateObservabilityConfiguration x
-> CreateObservabilityConfiguration
$cfrom :: forall x.
CreateObservabilityConfiguration
-> Rep CreateObservabilityConfiguration x
Prelude.Generic)
newCreateObservabilityConfiguration ::
Prelude.Text ->
CreateObservabilityConfiguration
newCreateObservabilityConfiguration :: Text -> CreateObservabilityConfiguration
newCreateObservabilityConfiguration
Text
pObservabilityConfigurationName_ =
CreateObservabilityConfiguration'
{ $sel:tags:CreateObservabilityConfiguration' :: Maybe [Tag]
tags =
forall a. Maybe a
Prelude.Nothing,
$sel:traceConfiguration:CreateObservabilityConfiguration' :: Maybe TraceConfiguration
traceConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:observabilityConfigurationName:CreateObservabilityConfiguration' :: Text
observabilityConfigurationName =
Text
pObservabilityConfigurationName_
}
createObservabilityConfiguration_tags :: Lens.Lens' CreateObservabilityConfiguration (Prelude.Maybe [Tag])
createObservabilityConfiguration_tags :: Lens' CreateObservabilityConfiguration (Maybe [Tag])
createObservabilityConfiguration_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateObservabilityConfiguration' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateObservabilityConfiguration' :: CreateObservabilityConfiguration -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateObservabilityConfiguration
s@CreateObservabilityConfiguration' {} Maybe [Tag]
a -> CreateObservabilityConfiguration
s {$sel:tags:CreateObservabilityConfiguration' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateObservabilityConfiguration) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createObservabilityConfiguration_traceConfiguration :: Lens.Lens' CreateObservabilityConfiguration (Prelude.Maybe TraceConfiguration)
createObservabilityConfiguration_traceConfiguration :: Lens' CreateObservabilityConfiguration (Maybe TraceConfiguration)
createObservabilityConfiguration_traceConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateObservabilityConfiguration' {Maybe TraceConfiguration
traceConfiguration :: Maybe TraceConfiguration
$sel:traceConfiguration:CreateObservabilityConfiguration' :: CreateObservabilityConfiguration -> Maybe TraceConfiguration
traceConfiguration} -> Maybe TraceConfiguration
traceConfiguration) (\s :: CreateObservabilityConfiguration
s@CreateObservabilityConfiguration' {} Maybe TraceConfiguration
a -> CreateObservabilityConfiguration
s {$sel:traceConfiguration:CreateObservabilityConfiguration' :: Maybe TraceConfiguration
traceConfiguration = Maybe TraceConfiguration
a} :: CreateObservabilityConfiguration)
createObservabilityConfiguration_observabilityConfigurationName :: Lens.Lens' CreateObservabilityConfiguration Prelude.Text
createObservabilityConfiguration_observabilityConfigurationName :: Lens' CreateObservabilityConfiguration Text
createObservabilityConfiguration_observabilityConfigurationName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateObservabilityConfiguration' {Text
observabilityConfigurationName :: Text
$sel:observabilityConfigurationName:CreateObservabilityConfiguration' :: CreateObservabilityConfiguration -> Text
observabilityConfigurationName} -> Text
observabilityConfigurationName) (\s :: CreateObservabilityConfiguration
s@CreateObservabilityConfiguration' {} Text
a -> CreateObservabilityConfiguration
s {$sel:observabilityConfigurationName:CreateObservabilityConfiguration' :: Text
observabilityConfigurationName = Text
a} :: CreateObservabilityConfiguration)
instance
Core.AWSRequest
CreateObservabilityConfiguration
where
type
AWSResponse CreateObservabilityConfiguration =
CreateObservabilityConfigurationResponse
request :: (Service -> Service)
-> CreateObservabilityConfiguration
-> Request CreateObservabilityConfiguration
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 CreateObservabilityConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse CreateObservabilityConfiguration)))
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
-> ObservabilityConfiguration
-> CreateObservabilityConfigurationResponse
CreateObservabilityConfigurationResponse'
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
"ObservabilityConfiguration")
)
instance
Prelude.Hashable
CreateObservabilityConfiguration
where
hashWithSalt :: Int -> CreateObservabilityConfiguration -> Int
hashWithSalt
Int
_salt
CreateObservabilityConfiguration' {Maybe [Tag]
Maybe TraceConfiguration
Text
observabilityConfigurationName :: Text
traceConfiguration :: Maybe TraceConfiguration
tags :: Maybe [Tag]
$sel:observabilityConfigurationName:CreateObservabilityConfiguration' :: CreateObservabilityConfiguration -> Text
$sel:traceConfiguration:CreateObservabilityConfiguration' :: CreateObservabilityConfiguration -> Maybe TraceConfiguration
$sel:tags:CreateObservabilityConfiguration' :: CreateObservabilityConfiguration -> Maybe [Tag]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TraceConfiguration
traceConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
observabilityConfigurationName
instance
Prelude.NFData
CreateObservabilityConfiguration
where
rnf :: CreateObservabilityConfiguration -> ()
rnf CreateObservabilityConfiguration' {Maybe [Tag]
Maybe TraceConfiguration
Text
observabilityConfigurationName :: Text
traceConfiguration :: Maybe TraceConfiguration
tags :: Maybe [Tag]
$sel:observabilityConfigurationName:CreateObservabilityConfiguration' :: CreateObservabilityConfiguration -> Text
$sel:traceConfiguration:CreateObservabilityConfiguration' :: CreateObservabilityConfiguration -> Maybe TraceConfiguration
$sel:tags:CreateObservabilityConfiguration' :: CreateObservabilityConfiguration -> Maybe [Tag]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe TraceConfiguration
traceConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
observabilityConfigurationName
instance
Data.ToHeaders
CreateObservabilityConfiguration
where
toHeaders :: CreateObservabilityConfiguration -> 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
"AppRunner.CreateObservabilityConfiguration" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON CreateObservabilityConfiguration where
toJSON :: CreateObservabilityConfiguration -> Value
toJSON CreateObservabilityConfiguration' {Maybe [Tag]
Maybe TraceConfiguration
Text
observabilityConfigurationName :: Text
traceConfiguration :: Maybe TraceConfiguration
tags :: Maybe [Tag]
$sel:observabilityConfigurationName:CreateObservabilityConfiguration' :: CreateObservabilityConfiguration -> Text
$sel:traceConfiguration:CreateObservabilityConfiguration' :: CreateObservabilityConfiguration -> Maybe TraceConfiguration
$sel:tags:CreateObservabilityConfiguration' :: CreateObservabilityConfiguration -> Maybe [Tag]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"Tags" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
(Key
"TraceConfiguration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe TraceConfiguration
traceConfiguration,
forall a. a -> Maybe a
Prelude.Just
( Key
"ObservabilityConfigurationName"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
observabilityConfigurationName
)
]
)
instance Data.ToPath CreateObservabilityConfiguration where
toPath :: CreateObservabilityConfiguration -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
CreateObservabilityConfiguration
where
toQuery :: CreateObservabilityConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateObservabilityConfigurationResponse = CreateObservabilityConfigurationResponse'
{
CreateObservabilityConfigurationResponse -> Int
httpStatus :: Prelude.Int,
CreateObservabilityConfigurationResponse
-> ObservabilityConfiguration
observabilityConfiguration :: ObservabilityConfiguration
}
deriving (CreateObservabilityConfigurationResponse
-> CreateObservabilityConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateObservabilityConfigurationResponse
-> CreateObservabilityConfigurationResponse -> Bool
$c/= :: CreateObservabilityConfigurationResponse
-> CreateObservabilityConfigurationResponse -> Bool
== :: CreateObservabilityConfigurationResponse
-> CreateObservabilityConfigurationResponse -> Bool
$c== :: CreateObservabilityConfigurationResponse
-> CreateObservabilityConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [CreateObservabilityConfigurationResponse]
ReadPrec CreateObservabilityConfigurationResponse
Int -> ReadS CreateObservabilityConfigurationResponse
ReadS [CreateObservabilityConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateObservabilityConfigurationResponse]
$creadListPrec :: ReadPrec [CreateObservabilityConfigurationResponse]
readPrec :: ReadPrec CreateObservabilityConfigurationResponse
$creadPrec :: ReadPrec CreateObservabilityConfigurationResponse
readList :: ReadS [CreateObservabilityConfigurationResponse]
$creadList :: ReadS [CreateObservabilityConfigurationResponse]
readsPrec :: Int -> ReadS CreateObservabilityConfigurationResponse
$creadsPrec :: Int -> ReadS CreateObservabilityConfigurationResponse
Prelude.Read, Int -> CreateObservabilityConfigurationResponse -> ShowS
[CreateObservabilityConfigurationResponse] -> ShowS
CreateObservabilityConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateObservabilityConfigurationResponse] -> ShowS
$cshowList :: [CreateObservabilityConfigurationResponse] -> ShowS
show :: CreateObservabilityConfigurationResponse -> String
$cshow :: CreateObservabilityConfigurationResponse -> String
showsPrec :: Int -> CreateObservabilityConfigurationResponse -> ShowS
$cshowsPrec :: Int -> CreateObservabilityConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep CreateObservabilityConfigurationResponse x
-> CreateObservabilityConfigurationResponse
forall x.
CreateObservabilityConfigurationResponse
-> Rep CreateObservabilityConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateObservabilityConfigurationResponse x
-> CreateObservabilityConfigurationResponse
$cfrom :: forall x.
CreateObservabilityConfigurationResponse
-> Rep CreateObservabilityConfigurationResponse x
Prelude.Generic)
newCreateObservabilityConfigurationResponse ::
Prelude.Int ->
ObservabilityConfiguration ->
CreateObservabilityConfigurationResponse
newCreateObservabilityConfigurationResponse :: Int
-> ObservabilityConfiguration
-> CreateObservabilityConfigurationResponse
newCreateObservabilityConfigurationResponse
Int
pHttpStatus_
ObservabilityConfiguration
pObservabilityConfiguration_ =
CreateObservabilityConfigurationResponse'
{ $sel:httpStatus:CreateObservabilityConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:observabilityConfiguration:CreateObservabilityConfigurationResponse' :: ObservabilityConfiguration
observabilityConfiguration =
ObservabilityConfiguration
pObservabilityConfiguration_
}
createObservabilityConfigurationResponse_httpStatus :: Lens.Lens' CreateObservabilityConfigurationResponse Prelude.Int
createObservabilityConfigurationResponse_httpStatus :: Lens' CreateObservabilityConfigurationResponse Int
createObservabilityConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateObservabilityConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateObservabilityConfigurationResponse' :: CreateObservabilityConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateObservabilityConfigurationResponse
s@CreateObservabilityConfigurationResponse' {} Int
a -> CreateObservabilityConfigurationResponse
s {$sel:httpStatus:CreateObservabilityConfigurationResponse' :: Int
httpStatus = Int
a} :: CreateObservabilityConfigurationResponse)
createObservabilityConfigurationResponse_observabilityConfiguration :: Lens.Lens' CreateObservabilityConfigurationResponse ObservabilityConfiguration
createObservabilityConfigurationResponse_observabilityConfiguration :: Lens'
CreateObservabilityConfigurationResponse ObservabilityConfiguration
createObservabilityConfigurationResponse_observabilityConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateObservabilityConfigurationResponse' {ObservabilityConfiguration
observabilityConfiguration :: ObservabilityConfiguration
$sel:observabilityConfiguration:CreateObservabilityConfigurationResponse' :: CreateObservabilityConfigurationResponse
-> ObservabilityConfiguration
observabilityConfiguration} -> ObservabilityConfiguration
observabilityConfiguration) (\s :: CreateObservabilityConfigurationResponse
s@CreateObservabilityConfigurationResponse' {} ObservabilityConfiguration
a -> CreateObservabilityConfigurationResponse
s {$sel:observabilityConfiguration:CreateObservabilityConfigurationResponse' :: ObservabilityConfiguration
observabilityConfiguration = ObservabilityConfiguration
a} :: CreateObservabilityConfigurationResponse)
instance
Prelude.NFData
CreateObservabilityConfigurationResponse
where
rnf :: CreateObservabilityConfigurationResponse -> ()
rnf CreateObservabilityConfigurationResponse' {Int
ObservabilityConfiguration
observabilityConfiguration :: ObservabilityConfiguration
httpStatus :: Int
$sel:observabilityConfiguration:CreateObservabilityConfigurationResponse' :: CreateObservabilityConfigurationResponse
-> ObservabilityConfiguration
$sel:httpStatus:CreateObservabilityConfigurationResponse' :: CreateObservabilityConfigurationResponse -> 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 ObservabilityConfiguration
observabilityConfiguration