{-# 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.RegisterActivityType
(
RegisterActivityType (..),
newRegisterActivityType,
registerActivityType_defaultTaskHeartbeatTimeout,
registerActivityType_defaultTaskList,
registerActivityType_defaultTaskPriority,
registerActivityType_defaultTaskScheduleToCloseTimeout,
registerActivityType_defaultTaskScheduleToStartTimeout,
registerActivityType_defaultTaskStartToCloseTimeout,
registerActivityType_description,
registerActivityType_domain,
registerActivityType_name,
registerActivityType_version,
RegisterActivityTypeResponse (..),
newRegisterActivityTypeResponse,
)
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 RegisterActivityType = RegisterActivityType'
{
RegisterActivityType -> Maybe Text
defaultTaskHeartbeatTimeout :: Prelude.Maybe Prelude.Text,
RegisterActivityType -> Maybe TaskList
defaultTaskList :: Prelude.Maybe TaskList,
RegisterActivityType -> Maybe Text
defaultTaskPriority :: Prelude.Maybe Prelude.Text,
RegisterActivityType -> Maybe Text
defaultTaskScheduleToCloseTimeout :: Prelude.Maybe Prelude.Text,
RegisterActivityType -> Maybe Text
defaultTaskScheduleToStartTimeout :: Prelude.Maybe Prelude.Text,
RegisterActivityType -> Maybe Text
defaultTaskStartToCloseTimeout :: Prelude.Maybe Prelude.Text,
RegisterActivityType -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
RegisterActivityType -> Text
domain :: Prelude.Text,
RegisterActivityType -> Text
name :: Prelude.Text,
RegisterActivityType -> Text
version :: Prelude.Text
}
deriving (RegisterActivityType -> RegisterActivityType -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RegisterActivityType -> RegisterActivityType -> Bool
$c/= :: RegisterActivityType -> RegisterActivityType -> Bool
== :: RegisterActivityType -> RegisterActivityType -> Bool
$c== :: RegisterActivityType -> RegisterActivityType -> Bool
Prelude.Eq, ReadPrec [RegisterActivityType]
ReadPrec RegisterActivityType
Int -> ReadS RegisterActivityType
ReadS [RegisterActivityType]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RegisterActivityType]
$creadListPrec :: ReadPrec [RegisterActivityType]
readPrec :: ReadPrec RegisterActivityType
$creadPrec :: ReadPrec RegisterActivityType
readList :: ReadS [RegisterActivityType]
$creadList :: ReadS [RegisterActivityType]
readsPrec :: Int -> ReadS RegisterActivityType
$creadsPrec :: Int -> ReadS RegisterActivityType
Prelude.Read, Int -> RegisterActivityType -> ShowS
[RegisterActivityType] -> ShowS
RegisterActivityType -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RegisterActivityType] -> ShowS
$cshowList :: [RegisterActivityType] -> ShowS
show :: RegisterActivityType -> String
$cshow :: RegisterActivityType -> String
showsPrec :: Int -> RegisterActivityType -> ShowS
$cshowsPrec :: Int -> RegisterActivityType -> ShowS
Prelude.Show, forall x. Rep RegisterActivityType x -> RegisterActivityType
forall x. RegisterActivityType -> Rep RegisterActivityType x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep RegisterActivityType x -> RegisterActivityType
$cfrom :: forall x. RegisterActivityType -> Rep RegisterActivityType x
Prelude.Generic)
newRegisterActivityType ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
RegisterActivityType
newRegisterActivityType :: Text -> Text -> Text -> RegisterActivityType
newRegisterActivityType Text
pDomain_ Text
pName_ Text
pVersion_ =
RegisterActivityType'
{ $sel:defaultTaskHeartbeatTimeout:RegisterActivityType' :: Maybe Text
defaultTaskHeartbeatTimeout =
forall a. Maybe a
Prelude.Nothing,
$sel:defaultTaskList:RegisterActivityType' :: Maybe TaskList
defaultTaskList = forall a. Maybe a
Prelude.Nothing,
$sel:defaultTaskPriority:RegisterActivityType' :: Maybe Text
defaultTaskPriority = forall a. Maybe a
Prelude.Nothing,
$sel:defaultTaskScheduleToCloseTimeout:RegisterActivityType' :: Maybe Text
defaultTaskScheduleToCloseTimeout = forall a. Maybe a
Prelude.Nothing,
$sel:defaultTaskScheduleToStartTimeout:RegisterActivityType' :: Maybe Text
defaultTaskScheduleToStartTimeout = forall a. Maybe a
Prelude.Nothing,
$sel:defaultTaskStartToCloseTimeout:RegisterActivityType' :: Maybe Text
defaultTaskStartToCloseTimeout = forall a. Maybe a
Prelude.Nothing,
$sel:description:RegisterActivityType' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:domain:RegisterActivityType' :: Text
domain = Text
pDomain_,
$sel:name:RegisterActivityType' :: Text
name = Text
pName_,
$sel:version:RegisterActivityType' :: Text
version = Text
pVersion_
}
registerActivityType_defaultTaskHeartbeatTimeout :: Lens.Lens' RegisterActivityType (Prelude.Maybe Prelude.Text)
registerActivityType_defaultTaskHeartbeatTimeout :: Lens' RegisterActivityType (Maybe Text)
registerActivityType_defaultTaskHeartbeatTimeout = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterActivityType' {Maybe Text
defaultTaskHeartbeatTimeout :: Maybe Text
$sel:defaultTaskHeartbeatTimeout:RegisterActivityType' :: RegisterActivityType -> Maybe Text
defaultTaskHeartbeatTimeout} -> Maybe Text
defaultTaskHeartbeatTimeout) (\s :: RegisterActivityType
s@RegisterActivityType' {} Maybe Text
a -> RegisterActivityType
s {$sel:defaultTaskHeartbeatTimeout:RegisterActivityType' :: Maybe Text
defaultTaskHeartbeatTimeout = Maybe Text
a} :: RegisterActivityType)
registerActivityType_defaultTaskList :: Lens.Lens' RegisterActivityType (Prelude.Maybe TaskList)
registerActivityType_defaultTaskList :: Lens' RegisterActivityType (Maybe TaskList)
registerActivityType_defaultTaskList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterActivityType' {Maybe TaskList
defaultTaskList :: Maybe TaskList
$sel:defaultTaskList:RegisterActivityType' :: RegisterActivityType -> Maybe TaskList
defaultTaskList} -> Maybe TaskList
defaultTaskList) (\s :: RegisterActivityType
s@RegisterActivityType' {} Maybe TaskList
a -> RegisterActivityType
s {$sel:defaultTaskList:RegisterActivityType' :: Maybe TaskList
defaultTaskList = Maybe TaskList
a} :: RegisterActivityType)
registerActivityType_defaultTaskPriority :: Lens.Lens' RegisterActivityType (Prelude.Maybe Prelude.Text)
registerActivityType_defaultTaskPriority :: Lens' RegisterActivityType (Maybe Text)
registerActivityType_defaultTaskPriority = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterActivityType' {Maybe Text
defaultTaskPriority :: Maybe Text
$sel:defaultTaskPriority:RegisterActivityType' :: RegisterActivityType -> Maybe Text
defaultTaskPriority} -> Maybe Text
defaultTaskPriority) (\s :: RegisterActivityType
s@RegisterActivityType' {} Maybe Text
a -> RegisterActivityType
s {$sel:defaultTaskPriority:RegisterActivityType' :: Maybe Text
defaultTaskPriority = Maybe Text
a} :: RegisterActivityType)
registerActivityType_defaultTaskScheduleToCloseTimeout :: Lens.Lens' RegisterActivityType (Prelude.Maybe Prelude.Text)
registerActivityType_defaultTaskScheduleToCloseTimeout :: Lens' RegisterActivityType (Maybe Text)
registerActivityType_defaultTaskScheduleToCloseTimeout = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterActivityType' {Maybe Text
defaultTaskScheduleToCloseTimeout :: Maybe Text
$sel:defaultTaskScheduleToCloseTimeout:RegisterActivityType' :: RegisterActivityType -> Maybe Text
defaultTaskScheduleToCloseTimeout} -> Maybe Text
defaultTaskScheduleToCloseTimeout) (\s :: RegisterActivityType
s@RegisterActivityType' {} Maybe Text
a -> RegisterActivityType
s {$sel:defaultTaskScheduleToCloseTimeout:RegisterActivityType' :: Maybe Text
defaultTaskScheduleToCloseTimeout = Maybe Text
a} :: RegisterActivityType)
registerActivityType_defaultTaskScheduleToStartTimeout :: Lens.Lens' RegisterActivityType (Prelude.Maybe Prelude.Text)
registerActivityType_defaultTaskScheduleToStartTimeout :: Lens' RegisterActivityType (Maybe Text)
registerActivityType_defaultTaskScheduleToStartTimeout = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterActivityType' {Maybe Text
defaultTaskScheduleToStartTimeout :: Maybe Text
$sel:defaultTaskScheduleToStartTimeout:RegisterActivityType' :: RegisterActivityType -> Maybe Text
defaultTaskScheduleToStartTimeout} -> Maybe Text
defaultTaskScheduleToStartTimeout) (\s :: RegisterActivityType
s@RegisterActivityType' {} Maybe Text
a -> RegisterActivityType
s {$sel:defaultTaskScheduleToStartTimeout:RegisterActivityType' :: Maybe Text
defaultTaskScheduleToStartTimeout = Maybe Text
a} :: RegisterActivityType)
registerActivityType_defaultTaskStartToCloseTimeout :: Lens.Lens' RegisterActivityType (Prelude.Maybe Prelude.Text)
registerActivityType_defaultTaskStartToCloseTimeout :: Lens' RegisterActivityType (Maybe Text)
registerActivityType_defaultTaskStartToCloseTimeout = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterActivityType' {Maybe Text
defaultTaskStartToCloseTimeout :: Maybe Text
$sel:defaultTaskStartToCloseTimeout:RegisterActivityType' :: RegisterActivityType -> Maybe Text
defaultTaskStartToCloseTimeout} -> Maybe Text
defaultTaskStartToCloseTimeout) (\s :: RegisterActivityType
s@RegisterActivityType' {} Maybe Text
a -> RegisterActivityType
s {$sel:defaultTaskStartToCloseTimeout:RegisterActivityType' :: Maybe Text
defaultTaskStartToCloseTimeout = Maybe Text
a} :: RegisterActivityType)
registerActivityType_description :: Lens.Lens' RegisterActivityType (Prelude.Maybe Prelude.Text)
registerActivityType_description :: Lens' RegisterActivityType (Maybe Text)
registerActivityType_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterActivityType' {Maybe Text
description :: Maybe Text
$sel:description:RegisterActivityType' :: RegisterActivityType -> Maybe Text
description} -> Maybe Text
description) (\s :: RegisterActivityType
s@RegisterActivityType' {} Maybe Text
a -> RegisterActivityType
s {$sel:description:RegisterActivityType' :: Maybe Text
description = Maybe Text
a} :: RegisterActivityType)
registerActivityType_domain :: Lens.Lens' RegisterActivityType Prelude.Text
registerActivityType_domain :: Lens' RegisterActivityType Text
registerActivityType_domain = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterActivityType' {Text
domain :: Text
$sel:domain:RegisterActivityType' :: RegisterActivityType -> Text
domain} -> Text
domain) (\s :: RegisterActivityType
s@RegisterActivityType' {} Text
a -> RegisterActivityType
s {$sel:domain:RegisterActivityType' :: Text
domain = Text
a} :: RegisterActivityType)
registerActivityType_name :: Lens.Lens' RegisterActivityType Prelude.Text
registerActivityType_name :: Lens' RegisterActivityType Text
registerActivityType_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterActivityType' {Text
name :: Text
$sel:name:RegisterActivityType' :: RegisterActivityType -> Text
name} -> Text
name) (\s :: RegisterActivityType
s@RegisterActivityType' {} Text
a -> RegisterActivityType
s {$sel:name:RegisterActivityType' :: Text
name = Text
a} :: RegisterActivityType)
registerActivityType_version :: Lens.Lens' RegisterActivityType Prelude.Text
registerActivityType_version :: Lens' RegisterActivityType Text
registerActivityType_version = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisterActivityType' {Text
version :: Text
$sel:version:RegisterActivityType' :: RegisterActivityType -> Text
version} -> Text
version) (\s :: RegisterActivityType
s@RegisterActivityType' {} Text
a -> RegisterActivityType
s {$sel:version:RegisterActivityType' :: Text
version = Text
a} :: RegisterActivityType)
instance Core.AWSRequest RegisterActivityType where
type
AWSResponse RegisterActivityType =
RegisterActivityTypeResponse
request :: (Service -> Service)
-> RegisterActivityType -> Request RegisterActivityType
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 RegisterActivityType
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse RegisterActivityType)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull RegisterActivityTypeResponse
RegisterActivityTypeResponse'
instance Prelude.Hashable RegisterActivityType where
hashWithSalt :: Int -> RegisterActivityType -> Int
hashWithSalt Int
_salt RegisterActivityType' {Maybe Text
Maybe TaskList
Text
version :: Text
name :: Text
domain :: Text
description :: Maybe Text
defaultTaskStartToCloseTimeout :: Maybe Text
defaultTaskScheduleToStartTimeout :: Maybe Text
defaultTaskScheduleToCloseTimeout :: Maybe Text
defaultTaskPriority :: Maybe Text
defaultTaskList :: Maybe TaskList
defaultTaskHeartbeatTimeout :: Maybe Text
$sel:version:RegisterActivityType' :: RegisterActivityType -> Text
$sel:name:RegisterActivityType' :: RegisterActivityType -> Text
$sel:domain:RegisterActivityType' :: RegisterActivityType -> Text
$sel:description:RegisterActivityType' :: RegisterActivityType -> Maybe Text
$sel:defaultTaskStartToCloseTimeout:RegisterActivityType' :: RegisterActivityType -> Maybe Text
$sel:defaultTaskScheduleToStartTimeout:RegisterActivityType' :: RegisterActivityType -> Maybe Text
$sel:defaultTaskScheduleToCloseTimeout:RegisterActivityType' :: RegisterActivityType -> Maybe Text
$sel:defaultTaskPriority:RegisterActivityType' :: RegisterActivityType -> Maybe Text
$sel:defaultTaskList:RegisterActivityType' :: RegisterActivityType -> Maybe TaskList
$sel:defaultTaskHeartbeatTimeout:RegisterActivityType' :: RegisterActivityType -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
defaultTaskHeartbeatTimeout
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TaskList
defaultTaskList
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
defaultTaskPriority
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
defaultTaskScheduleToCloseTimeout
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
defaultTaskScheduleToStartTimeout
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
defaultTaskStartToCloseTimeout
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
domain
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
version
instance Prelude.NFData RegisterActivityType where
rnf :: RegisterActivityType -> ()
rnf RegisterActivityType' {Maybe Text
Maybe TaskList
Text
version :: Text
name :: Text
domain :: Text
description :: Maybe Text
defaultTaskStartToCloseTimeout :: Maybe Text
defaultTaskScheduleToStartTimeout :: Maybe Text
defaultTaskScheduleToCloseTimeout :: Maybe Text
defaultTaskPriority :: Maybe Text
defaultTaskList :: Maybe TaskList
defaultTaskHeartbeatTimeout :: Maybe Text
$sel:version:RegisterActivityType' :: RegisterActivityType -> Text
$sel:name:RegisterActivityType' :: RegisterActivityType -> Text
$sel:domain:RegisterActivityType' :: RegisterActivityType -> Text
$sel:description:RegisterActivityType' :: RegisterActivityType -> Maybe Text
$sel:defaultTaskStartToCloseTimeout:RegisterActivityType' :: RegisterActivityType -> Maybe Text
$sel:defaultTaskScheduleToStartTimeout:RegisterActivityType' :: RegisterActivityType -> Maybe Text
$sel:defaultTaskScheduleToCloseTimeout:RegisterActivityType' :: RegisterActivityType -> Maybe Text
$sel:defaultTaskPriority:RegisterActivityType' :: RegisterActivityType -> Maybe Text
$sel:defaultTaskList:RegisterActivityType' :: RegisterActivityType -> Maybe TaskList
$sel:defaultTaskHeartbeatTimeout:RegisterActivityType' :: RegisterActivityType -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultTaskHeartbeatTimeout
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe TaskList
defaultTaskList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultTaskPriority
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultTaskScheduleToCloseTimeout
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultTaskScheduleToStartTimeout
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultTaskStartToCloseTimeout
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 Text
domain
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
version
instance Data.ToHeaders RegisterActivityType where
toHeaders :: RegisterActivityType -> [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.RegisterActivityType" ::
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 RegisterActivityType where
toJSON :: RegisterActivityType -> Value
toJSON RegisterActivityType' {Maybe Text
Maybe TaskList
Text
version :: Text
name :: Text
domain :: Text
description :: Maybe Text
defaultTaskStartToCloseTimeout :: Maybe Text
defaultTaskScheduleToStartTimeout :: Maybe Text
defaultTaskScheduleToCloseTimeout :: Maybe Text
defaultTaskPriority :: Maybe Text
defaultTaskList :: Maybe TaskList
defaultTaskHeartbeatTimeout :: Maybe Text
$sel:version:RegisterActivityType' :: RegisterActivityType -> Text
$sel:name:RegisterActivityType' :: RegisterActivityType -> Text
$sel:domain:RegisterActivityType' :: RegisterActivityType -> Text
$sel:description:RegisterActivityType' :: RegisterActivityType -> Maybe Text
$sel:defaultTaskStartToCloseTimeout:RegisterActivityType' :: RegisterActivityType -> Maybe Text
$sel:defaultTaskScheduleToStartTimeout:RegisterActivityType' :: RegisterActivityType -> Maybe Text
$sel:defaultTaskScheduleToCloseTimeout:RegisterActivityType' :: RegisterActivityType -> Maybe Text
$sel:defaultTaskPriority:RegisterActivityType' :: RegisterActivityType -> Maybe Text
$sel:defaultTaskList:RegisterActivityType' :: RegisterActivityType -> Maybe TaskList
$sel:defaultTaskHeartbeatTimeout:RegisterActivityType' :: RegisterActivityType -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"defaultTaskHeartbeatTimeout" 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
defaultTaskHeartbeatTimeout,
(Key
"defaultTaskList" 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 TaskList
defaultTaskList,
(Key
"defaultTaskPriority" 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
defaultTaskPriority,
(Key
"defaultTaskScheduleToCloseTimeout" 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
defaultTaskScheduleToCloseTimeout,
(Key
"defaultTaskScheduleToStartTimeout" 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
defaultTaskScheduleToStartTimeout,
(Key
"defaultTaskStartToCloseTimeout" 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
defaultTaskStartToCloseTimeout,
(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,
forall a. a -> Maybe a
Prelude.Just (Key
"domain" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
domain),
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
"version" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
version)
]
)
instance Data.ToPath RegisterActivityType where
toPath :: RegisterActivityType -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery RegisterActivityType where
toQuery :: RegisterActivityType -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data RegisterActivityTypeResponse = RegisterActivityTypeResponse'
{
}
deriving (RegisterActivityTypeResponse
-> RegisterActivityTypeResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RegisterActivityTypeResponse
-> RegisterActivityTypeResponse -> Bool
$c/= :: RegisterActivityTypeResponse
-> RegisterActivityTypeResponse -> Bool
== :: RegisterActivityTypeResponse
-> RegisterActivityTypeResponse -> Bool
$c== :: RegisterActivityTypeResponse
-> RegisterActivityTypeResponse -> Bool
Prelude.Eq, ReadPrec [RegisterActivityTypeResponse]
ReadPrec RegisterActivityTypeResponse
Int -> ReadS RegisterActivityTypeResponse
ReadS [RegisterActivityTypeResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RegisterActivityTypeResponse]
$creadListPrec :: ReadPrec [RegisterActivityTypeResponse]
readPrec :: ReadPrec RegisterActivityTypeResponse
$creadPrec :: ReadPrec RegisterActivityTypeResponse
readList :: ReadS [RegisterActivityTypeResponse]
$creadList :: ReadS [RegisterActivityTypeResponse]
readsPrec :: Int -> ReadS RegisterActivityTypeResponse
$creadsPrec :: Int -> ReadS RegisterActivityTypeResponse
Prelude.Read, Int -> RegisterActivityTypeResponse -> ShowS
[RegisterActivityTypeResponse] -> ShowS
RegisterActivityTypeResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RegisterActivityTypeResponse] -> ShowS
$cshowList :: [RegisterActivityTypeResponse] -> ShowS
show :: RegisterActivityTypeResponse -> String
$cshow :: RegisterActivityTypeResponse -> String
showsPrec :: Int -> RegisterActivityTypeResponse -> ShowS
$cshowsPrec :: Int -> RegisterActivityTypeResponse -> ShowS
Prelude.Show, forall x.
Rep RegisterActivityTypeResponse x -> RegisterActivityTypeResponse
forall x.
RegisterActivityTypeResponse -> Rep RegisterActivityTypeResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RegisterActivityTypeResponse x -> RegisterActivityTypeResponse
$cfrom :: forall x.
RegisterActivityTypeResponse -> Rep RegisterActivityTypeResponse x
Prelude.Generic)
newRegisterActivityTypeResponse ::
RegisterActivityTypeResponse
newRegisterActivityTypeResponse :: RegisterActivityTypeResponse
newRegisterActivityTypeResponse =
RegisterActivityTypeResponse
RegisterActivityTypeResponse'
instance Prelude.NFData RegisterActivityTypeResponse where
rnf :: RegisterActivityTypeResponse -> ()
rnf RegisterActivityTypeResponse
_ = ()