{-# 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.SWF.RegisterDomain
(
RegisterDomain (..),
newRegisterDomain,
registerDomain_description,
registerDomain_tags,
registerDomain_name,
registerDomain_workflowExecutionRetentionPeriodInDays,
RegisterDomainResponse (..),
newRegisterDomainResponse,
)
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.SWF.Types
data RegisterDomain = RegisterDomain'
{
RegisterDomain -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
RegisterDomain -> Maybe [ResourceTag]
tags :: Prelude.Maybe [ResourceTag],
RegisterDomain -> Text
name :: Prelude.Text,
RegisterDomain -> Text
workflowExecutionRetentionPeriodInDays :: Prelude.Text
}
deriving (RegisterDomain -> RegisterDomain -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RegisterDomain -> RegisterDomain -> Bool
$c/= :: RegisterDomain -> RegisterDomain -> Bool
== :: RegisterDomain -> RegisterDomain -> Bool
$c== :: RegisterDomain -> RegisterDomain -> Bool
Prelude.Eq, ReadPrec [RegisterDomain]
ReadPrec RegisterDomain
Int -> ReadS RegisterDomain
ReadS [RegisterDomain]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RegisterDomain]
$creadListPrec :: ReadPrec [RegisterDomain]
readPrec :: ReadPrec RegisterDomain
$creadPrec :: ReadPrec RegisterDomain
readList :: ReadS [RegisterDomain]
$creadList :: ReadS [RegisterDomain]
readsPrec :: Int -> ReadS RegisterDomain
$creadsPrec :: Int -> ReadS RegisterDomain
Prelude.Read, Int -> RegisterDomain -> ShowS
[RegisterDomain] -> ShowS
RegisterDomain -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RegisterDomain] -> ShowS
$cshowList :: [RegisterDomain] -> ShowS
show :: RegisterDomain -> String
$cshow :: RegisterDomain -> String
showsPrec :: Int -> RegisterDomain -> ShowS
$cshowsPrec :: Int -> RegisterDomain -> ShowS
Prelude.Show, forall x. Rep RegisterDomain x -> RegisterDomain
forall x. RegisterDomain -> Rep RegisterDomain x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep RegisterDomain x -> RegisterDomain
$cfrom :: forall x. RegisterDomain -> Rep RegisterDomain x
Prelude.Generic)
newRegisterDomain ::
Prelude.Text ->
Prelude.Text ->
RegisterDomain
newRegisterDomain :: Text -> Text -> RegisterDomain
newRegisterDomain
Text
pName_
Text
pWorkflowExecutionRetentionPeriodInDays_ =
RegisterDomain'
{ $sel:description:RegisterDomain' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:tags:RegisterDomain' :: Maybe [ResourceTag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:name:RegisterDomain' :: Text
name = Text
pName_,
$sel:workflowExecutionRetentionPeriodInDays:RegisterDomain' :: Text
workflowExecutionRetentionPeriodInDays =
Text
pWorkflowExecutionRetentionPeriodInDays_
}
registerDomain_description :: Lens.Lens' RegisterDomain (Prelude.Maybe Prelude.Text)
registerDomain_description :: Lens' RegisterDomain (Maybe Text)
registerDomain_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterDomain' {Maybe Text
description :: Maybe Text
$sel:description:RegisterDomain' :: RegisterDomain -> Maybe Text
description} -> Maybe Text
description) (\s :: RegisterDomain
s@RegisterDomain' {} Maybe Text
a -> RegisterDomain
s {$sel:description:RegisterDomain' :: Maybe Text
description = Maybe Text
a} :: RegisterDomain)
registerDomain_tags :: Lens.Lens' RegisterDomain (Prelude.Maybe [ResourceTag])
registerDomain_tags :: Lens' RegisterDomain (Maybe [ResourceTag])
registerDomain_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterDomain' {Maybe [ResourceTag]
tags :: Maybe [ResourceTag]
$sel:tags:RegisterDomain' :: RegisterDomain -> Maybe [ResourceTag]
tags} -> Maybe [ResourceTag]
tags) (\s :: RegisterDomain
s@RegisterDomain' {} Maybe [ResourceTag]
a -> RegisterDomain
s {$sel:tags:RegisterDomain' :: Maybe [ResourceTag]
tags = Maybe [ResourceTag]
a} :: RegisterDomain) 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
registerDomain_name :: Lens.Lens' RegisterDomain Prelude.Text
registerDomain_name :: Lens' RegisterDomain Text
registerDomain_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterDomain' {Text
name :: Text
$sel:name:RegisterDomain' :: RegisterDomain -> Text
name} -> Text
name) (\s :: RegisterDomain
s@RegisterDomain' {} Text
a -> RegisterDomain
s {$sel:name:RegisterDomain' :: Text
name = Text
a} :: RegisterDomain)
registerDomain_workflowExecutionRetentionPeriodInDays :: Lens.Lens' RegisterDomain Prelude.Text
registerDomain_workflowExecutionRetentionPeriodInDays :: Lens' RegisterDomain Text
registerDomain_workflowExecutionRetentionPeriodInDays = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterDomain' {Text
workflowExecutionRetentionPeriodInDays :: Text
$sel:workflowExecutionRetentionPeriodInDays:RegisterDomain' :: RegisterDomain -> Text
workflowExecutionRetentionPeriodInDays} -> Text
workflowExecutionRetentionPeriodInDays) (\s :: RegisterDomain
s@RegisterDomain' {} Text
a -> RegisterDomain
s {$sel:workflowExecutionRetentionPeriodInDays:RegisterDomain' :: Text
workflowExecutionRetentionPeriodInDays = Text
a} :: RegisterDomain)
instance Core.AWSRequest RegisterDomain where
type
AWSResponse RegisterDomain =
RegisterDomainResponse
request :: (Service -> Service) -> RegisterDomain -> Request RegisterDomain
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 RegisterDomain
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse RegisterDomain)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull RegisterDomainResponse
RegisterDomainResponse'
instance Prelude.Hashable RegisterDomain where
hashWithSalt :: Int -> RegisterDomain -> Int
hashWithSalt Int
_salt RegisterDomain' {Maybe [ResourceTag]
Maybe Text
Text
workflowExecutionRetentionPeriodInDays :: Text
name :: Text
tags :: Maybe [ResourceTag]
description :: Maybe Text
$sel:workflowExecutionRetentionPeriodInDays:RegisterDomain' :: RegisterDomain -> Text
$sel:name:RegisterDomain' :: RegisterDomain -> Text
$sel:tags:RegisterDomain' :: RegisterDomain -> Maybe [ResourceTag]
$sel:description:RegisterDomain' :: RegisterDomain -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [ResourceTag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
workflowExecutionRetentionPeriodInDays
instance Prelude.NFData RegisterDomain where
rnf :: RegisterDomain -> ()
rnf RegisterDomain' {Maybe [ResourceTag]
Maybe Text
Text
workflowExecutionRetentionPeriodInDays :: Text
name :: Text
tags :: Maybe [ResourceTag]
description :: Maybe Text
$sel:workflowExecutionRetentionPeriodInDays:RegisterDomain' :: RegisterDomain -> Text
$sel:name:RegisterDomain' :: RegisterDomain -> Text
$sel:tags:RegisterDomain' :: RegisterDomain -> Maybe [ResourceTag]
$sel:description:RegisterDomain' :: RegisterDomain -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [ResourceTag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
workflowExecutionRetentionPeriodInDays
instance Data.ToHeaders RegisterDomain where
toHeaders :: RegisterDomain -> [Header]
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 -> [Header]
Data.=# ( ByteString
"SimpleWorkflowService.RegisterDomain" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON RegisterDomain where
toJSON :: RegisterDomain -> Value
toJSON RegisterDomain' {Maybe [ResourceTag]
Maybe Text
Text
workflowExecutionRetentionPeriodInDays :: Text
name :: Text
tags :: Maybe [ResourceTag]
description :: Maybe Text
$sel:workflowExecutionRetentionPeriodInDays:RegisterDomain' :: RegisterDomain -> Text
$sel:name:RegisterDomain' :: RegisterDomain -> Text
$sel:tags:RegisterDomain' :: RegisterDomain -> Maybe [ResourceTag]
$sel:description:RegisterDomain' :: RegisterDomain -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"description" 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 Text
description,
(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 [ResourceTag]
tags,
forall a. a -> Maybe a
Prelude.Just (Key
"name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name),
forall a. a -> Maybe a
Prelude.Just
( Key
"workflowExecutionRetentionPeriodInDays"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
workflowExecutionRetentionPeriodInDays
)
]
)
instance Data.ToPath RegisterDomain where
toPath :: RegisterDomain -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery RegisterDomain where
toQuery :: RegisterDomain -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data RegisterDomainResponse = RegisterDomainResponse'
{
}
deriving (RegisterDomainResponse -> RegisterDomainResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RegisterDomainResponse -> RegisterDomainResponse -> Bool
$c/= :: RegisterDomainResponse -> RegisterDomainResponse -> Bool
== :: RegisterDomainResponse -> RegisterDomainResponse -> Bool
$c== :: RegisterDomainResponse -> RegisterDomainResponse -> Bool
Prelude.Eq, ReadPrec [RegisterDomainResponse]
ReadPrec RegisterDomainResponse
Int -> ReadS RegisterDomainResponse
ReadS [RegisterDomainResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RegisterDomainResponse]
$creadListPrec :: ReadPrec [RegisterDomainResponse]
readPrec :: ReadPrec RegisterDomainResponse
$creadPrec :: ReadPrec RegisterDomainResponse
readList :: ReadS [RegisterDomainResponse]
$creadList :: ReadS [RegisterDomainResponse]
readsPrec :: Int -> ReadS RegisterDomainResponse
$creadsPrec :: Int -> ReadS RegisterDomainResponse
Prelude.Read, Int -> RegisterDomainResponse -> ShowS
[RegisterDomainResponse] -> ShowS
RegisterDomainResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RegisterDomainResponse] -> ShowS
$cshowList :: [RegisterDomainResponse] -> ShowS
show :: RegisterDomainResponse -> String
$cshow :: RegisterDomainResponse -> String
showsPrec :: Int -> RegisterDomainResponse -> ShowS
$cshowsPrec :: Int -> RegisterDomainResponse -> ShowS
Prelude.Show, forall x. Rep RegisterDomainResponse x -> RegisterDomainResponse
forall x. RegisterDomainResponse -> Rep RegisterDomainResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep RegisterDomainResponse x -> RegisterDomainResponse
$cfrom :: forall x. RegisterDomainResponse -> Rep RegisterDomainResponse x
Prelude.Generic)
newRegisterDomainResponse ::
RegisterDomainResponse
newRegisterDomainResponse :: RegisterDomainResponse
newRegisterDomainResponse = RegisterDomainResponse
RegisterDomainResponse'
instance Prelude.NFData RegisterDomainResponse where
rnf :: RegisterDomainResponse -> ()
rnf RegisterDomainResponse
_ = ()