{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Temporal.Api.Enums.V1.CommandType (
CommandType(..), CommandType(), CommandType'UnrecognizedValue
) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
newtype CommandType'UnrecognizedValue
= CommandType'UnrecognizedValue Data.Int.Int32
deriving stock (CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool
(CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool)
-> (CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool)
-> Eq CommandType'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool
== :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool
$c/= :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool
/= :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool
Prelude.Eq, Eq CommandType'UnrecognizedValue
Eq CommandType'UnrecognizedValue =>
(CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Ordering)
-> (CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool)
-> (CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool)
-> (CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool)
-> (CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool)
-> (CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> CommandType'UnrecognizedValue)
-> (CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> CommandType'UnrecognizedValue)
-> Ord CommandType'UnrecognizedValue
CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool
CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Ordering
CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> CommandType'UnrecognizedValue
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Ordering
compare :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Ordering
$c< :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool
< :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool
$c<= :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool
<= :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool
$c> :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool
> :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool
$c>= :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool
>= :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> Bool
$cmax :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> CommandType'UnrecognizedValue
max :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> CommandType'UnrecognizedValue
$cmin :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> CommandType'UnrecognizedValue
min :: CommandType'UnrecognizedValue
-> CommandType'UnrecognizedValue -> CommandType'UnrecognizedValue
Prelude.Ord, Int -> CommandType'UnrecognizedValue -> ShowS
[CommandType'UnrecognizedValue] -> ShowS
CommandType'UnrecognizedValue -> String
(Int -> CommandType'UnrecognizedValue -> ShowS)
-> (CommandType'UnrecognizedValue -> String)
-> ([CommandType'UnrecognizedValue] -> ShowS)
-> Show CommandType'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CommandType'UnrecognizedValue -> ShowS
showsPrec :: Int -> CommandType'UnrecognizedValue -> ShowS
$cshow :: CommandType'UnrecognizedValue -> String
show :: CommandType'UnrecognizedValue -> String
$cshowList :: [CommandType'UnrecognizedValue] -> ShowS
showList :: [CommandType'UnrecognizedValue] -> ShowS
Prelude.Show)
data CommandType
= COMMAND_TYPE_UNSPECIFIED |
COMMAND_TYPE_SCHEDULE_ACTIVITY_TASK |
COMMAND_TYPE_REQUEST_CANCEL_ACTIVITY_TASK |
COMMAND_TYPE_START_TIMER |
COMMAND_TYPE_COMPLETE_WORKFLOW_EXECUTION |
COMMAND_TYPE_FAIL_WORKFLOW_EXECUTION |
COMMAND_TYPE_CANCEL_TIMER |
COMMAND_TYPE_CANCEL_WORKFLOW_EXECUTION |
COMMAND_TYPE_REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION |
COMMAND_TYPE_RECORD_MARKER |
COMMAND_TYPE_CONTINUE_AS_NEW_WORKFLOW_EXECUTION |
COMMAND_TYPE_START_CHILD_WORKFLOW_EXECUTION |
COMMAND_TYPE_SIGNAL_EXTERNAL_WORKFLOW_EXECUTION |
COMMAND_TYPE_UPSERT_WORKFLOW_SEARCH_ATTRIBUTES |
COMMAND_TYPE_PROTOCOL_MESSAGE |
COMMAND_TYPE_MODIFY_WORKFLOW_PROPERTIES |
COMMAND_TYPE_SCHEDULE_NEXUS_OPERATION |
COMMAND_TYPE_REQUEST_CANCEL_NEXUS_OPERATION |
CommandType'Unrecognized !CommandType'UnrecognizedValue
deriving stock (Int -> CommandType -> ShowS
[CommandType] -> ShowS
CommandType -> String
(Int -> CommandType -> ShowS)
-> (CommandType -> String)
-> ([CommandType] -> ShowS)
-> Show CommandType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CommandType -> ShowS
showsPrec :: Int -> CommandType -> ShowS
$cshow :: CommandType -> String
show :: CommandType -> String
$cshowList :: [CommandType] -> ShowS
showList :: [CommandType] -> ShowS
Prelude.Show, CommandType -> CommandType -> Bool
(CommandType -> CommandType -> Bool)
-> (CommandType -> CommandType -> Bool) -> Eq CommandType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CommandType -> CommandType -> Bool
== :: CommandType -> CommandType -> Bool
$c/= :: CommandType -> CommandType -> Bool
/= :: CommandType -> CommandType -> Bool
Prelude.Eq, Eq CommandType
Eq CommandType =>
(CommandType -> CommandType -> Ordering)
-> (CommandType -> CommandType -> Bool)
-> (CommandType -> CommandType -> Bool)
-> (CommandType -> CommandType -> Bool)
-> (CommandType -> CommandType -> Bool)
-> (CommandType -> CommandType -> CommandType)
-> (CommandType -> CommandType -> CommandType)
-> Ord CommandType
CommandType -> CommandType -> Bool
CommandType -> CommandType -> Ordering
CommandType -> CommandType -> CommandType
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: CommandType -> CommandType -> Ordering
compare :: CommandType -> CommandType -> Ordering
$c< :: CommandType -> CommandType -> Bool
< :: CommandType -> CommandType -> Bool
$c<= :: CommandType -> CommandType -> Bool
<= :: CommandType -> CommandType -> Bool
$c> :: CommandType -> CommandType -> Bool
> :: CommandType -> CommandType -> Bool
$c>= :: CommandType -> CommandType -> Bool
>= :: CommandType -> CommandType -> Bool
$cmax :: CommandType -> CommandType -> CommandType
max :: CommandType -> CommandType -> CommandType
$cmin :: CommandType -> CommandType -> CommandType
min :: CommandType -> CommandType -> CommandType
Prelude.Ord)
instance Data.ProtoLens.MessageEnum CommandType where
maybeToEnum :: Int -> Maybe CommandType
maybeToEnum Int
0 = CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_UNSPECIFIED
maybeToEnum Int
1 = CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_SCHEDULE_ACTIVITY_TASK
maybeToEnum Int
2
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_REQUEST_CANCEL_ACTIVITY_TASK
maybeToEnum Int
3 = CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_START_TIMER
maybeToEnum Int
4
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_COMPLETE_WORKFLOW_EXECUTION
maybeToEnum Int
5 = CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_FAIL_WORKFLOW_EXECUTION
maybeToEnum Int
6 = CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_CANCEL_TIMER
maybeToEnum Int
7 = CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_CANCEL_WORKFLOW_EXECUTION
maybeToEnum Int
8
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just
CommandType
COMMAND_TYPE_REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION
maybeToEnum Int
9 = CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_RECORD_MARKER
maybeToEnum Int
10
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_CONTINUE_AS_NEW_WORKFLOW_EXECUTION
maybeToEnum Int
11
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_START_CHILD_WORKFLOW_EXECUTION
maybeToEnum Int
12
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_SIGNAL_EXTERNAL_WORKFLOW_EXECUTION
maybeToEnum Int
13
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_UPSERT_WORKFLOW_SEARCH_ATTRIBUTES
maybeToEnum Int
14 = CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_PROTOCOL_MESSAGE
maybeToEnum Int
16
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_MODIFY_WORKFLOW_PROPERTIES
maybeToEnum Int
17 = CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_SCHEDULE_NEXUS_OPERATION
maybeToEnum Int
18
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_REQUEST_CANCEL_NEXUS_OPERATION
maybeToEnum Int
k
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just
(CommandType'UnrecognizedValue -> CommandType
CommandType'Unrecognized
(Int32 -> CommandType'UnrecognizedValue
CommandType'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
showEnum :: CommandType -> String
showEnum CommandType
COMMAND_TYPE_UNSPECIFIED = String
"COMMAND_TYPE_UNSPECIFIED"
showEnum CommandType
COMMAND_TYPE_SCHEDULE_ACTIVITY_TASK
= String
"COMMAND_TYPE_SCHEDULE_ACTIVITY_TASK"
showEnum CommandType
COMMAND_TYPE_REQUEST_CANCEL_ACTIVITY_TASK
= String
"COMMAND_TYPE_REQUEST_CANCEL_ACTIVITY_TASK"
showEnum CommandType
COMMAND_TYPE_START_TIMER = String
"COMMAND_TYPE_START_TIMER"
showEnum CommandType
COMMAND_TYPE_COMPLETE_WORKFLOW_EXECUTION
= String
"COMMAND_TYPE_COMPLETE_WORKFLOW_EXECUTION"
showEnum CommandType
COMMAND_TYPE_FAIL_WORKFLOW_EXECUTION
= String
"COMMAND_TYPE_FAIL_WORKFLOW_EXECUTION"
showEnum CommandType
COMMAND_TYPE_CANCEL_TIMER = String
"COMMAND_TYPE_CANCEL_TIMER"
showEnum CommandType
COMMAND_TYPE_CANCEL_WORKFLOW_EXECUTION
= String
"COMMAND_TYPE_CANCEL_WORKFLOW_EXECUTION"
showEnum CommandType
COMMAND_TYPE_REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION
= String
"COMMAND_TYPE_REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION"
showEnum CommandType
COMMAND_TYPE_RECORD_MARKER = String
"COMMAND_TYPE_RECORD_MARKER"
showEnum CommandType
COMMAND_TYPE_CONTINUE_AS_NEW_WORKFLOW_EXECUTION
= String
"COMMAND_TYPE_CONTINUE_AS_NEW_WORKFLOW_EXECUTION"
showEnum CommandType
COMMAND_TYPE_START_CHILD_WORKFLOW_EXECUTION
= String
"COMMAND_TYPE_START_CHILD_WORKFLOW_EXECUTION"
showEnum CommandType
COMMAND_TYPE_SIGNAL_EXTERNAL_WORKFLOW_EXECUTION
= String
"COMMAND_TYPE_SIGNAL_EXTERNAL_WORKFLOW_EXECUTION"
showEnum CommandType
COMMAND_TYPE_UPSERT_WORKFLOW_SEARCH_ATTRIBUTES
= String
"COMMAND_TYPE_UPSERT_WORKFLOW_SEARCH_ATTRIBUTES"
showEnum CommandType
COMMAND_TYPE_PROTOCOL_MESSAGE
= String
"COMMAND_TYPE_PROTOCOL_MESSAGE"
showEnum CommandType
COMMAND_TYPE_MODIFY_WORKFLOW_PROPERTIES
= String
"COMMAND_TYPE_MODIFY_WORKFLOW_PROPERTIES"
showEnum CommandType
COMMAND_TYPE_SCHEDULE_NEXUS_OPERATION
= String
"COMMAND_TYPE_SCHEDULE_NEXUS_OPERATION"
showEnum CommandType
COMMAND_TYPE_REQUEST_CANCEL_NEXUS_OPERATION
= String
"COMMAND_TYPE_REQUEST_CANCEL_NEXUS_OPERATION"
showEnum
(CommandType'Unrecognized (CommandType'UnrecognizedValue Int32
k))
= Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
readEnum :: String -> Maybe CommandType
readEnum String
k
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_UNSPECIFIED"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_UNSPECIFIED
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_SCHEDULE_ACTIVITY_TASK"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_SCHEDULE_ACTIVITY_TASK
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_REQUEST_CANCEL_ACTIVITY_TASK"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_REQUEST_CANCEL_ACTIVITY_TASK
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_START_TIMER"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_START_TIMER
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_COMPLETE_WORKFLOW_EXECUTION"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_COMPLETE_WORKFLOW_EXECUTION
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_FAIL_WORKFLOW_EXECUTION"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_FAIL_WORKFLOW_EXECUTION
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_CANCEL_TIMER"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_CANCEL_TIMER
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_CANCEL_WORKFLOW_EXECUTION"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_CANCEL_WORKFLOW_EXECUTION
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==)
String
k String
"COMMAND_TYPE_REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just
CommandType
COMMAND_TYPE_REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_RECORD_MARKER"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_RECORD_MARKER
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_CONTINUE_AS_NEW_WORKFLOW_EXECUTION"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_CONTINUE_AS_NEW_WORKFLOW_EXECUTION
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_START_CHILD_WORKFLOW_EXECUTION"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_START_CHILD_WORKFLOW_EXECUTION
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_SIGNAL_EXTERNAL_WORKFLOW_EXECUTION"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_SIGNAL_EXTERNAL_WORKFLOW_EXECUTION
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_UPSERT_WORKFLOW_SEARCH_ATTRIBUTES"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_UPSERT_WORKFLOW_SEARCH_ATTRIBUTES
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_PROTOCOL_MESSAGE"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_PROTOCOL_MESSAGE
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_MODIFY_WORKFLOW_PROPERTIES"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_MODIFY_WORKFLOW_PROPERTIES
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_SCHEDULE_NEXUS_OPERATION"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_SCHEDULE_NEXUS_OPERATION
| String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"COMMAND_TYPE_REQUEST_CANCEL_NEXUS_OPERATION"
= CommandType -> Maybe CommandType
forall a. a -> Maybe a
Prelude.Just CommandType
COMMAND_TYPE_REQUEST_CANCEL_NEXUS_OPERATION
| Bool
Prelude.otherwise
= Maybe Int -> (Int -> Maybe CommandType) -> Maybe CommandType
forall a b. Maybe a -> (a -> Maybe b) -> Maybe b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe CommandType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded CommandType where
minBound :: CommandType
minBound = CommandType
COMMAND_TYPE_UNSPECIFIED
maxBound :: CommandType
maxBound = CommandType
COMMAND_TYPE_REQUEST_CANCEL_NEXUS_OPERATION
instance Prelude.Enum CommandType where
toEnum :: Int -> CommandType
toEnum Int
k__
= CommandType
-> (CommandType -> CommandType) -> Maybe CommandType -> CommandType
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
(String -> CommandType
forall a. HasCallStack => String -> a
Prelude.error
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
String
"toEnum: unknown value for enum CommandType: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
CommandType -> CommandType
forall a. a -> a
Prelude.id (Int -> Maybe CommandType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
fromEnum :: CommandType -> Int
fromEnum CommandType
COMMAND_TYPE_UNSPECIFIED = Int
0
fromEnum CommandType
COMMAND_TYPE_SCHEDULE_ACTIVITY_TASK = Int
1
fromEnum CommandType
COMMAND_TYPE_REQUEST_CANCEL_ACTIVITY_TASK = Int
2
fromEnum CommandType
COMMAND_TYPE_START_TIMER = Int
3
fromEnum CommandType
COMMAND_TYPE_COMPLETE_WORKFLOW_EXECUTION = Int
4
fromEnum CommandType
COMMAND_TYPE_FAIL_WORKFLOW_EXECUTION = Int
5
fromEnum CommandType
COMMAND_TYPE_CANCEL_TIMER = Int
6
fromEnum CommandType
COMMAND_TYPE_CANCEL_WORKFLOW_EXECUTION = Int
7
fromEnum CommandType
COMMAND_TYPE_REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION
= Int
8
fromEnum CommandType
COMMAND_TYPE_RECORD_MARKER = Int
9
fromEnum CommandType
COMMAND_TYPE_CONTINUE_AS_NEW_WORKFLOW_EXECUTION = Int
10
fromEnum CommandType
COMMAND_TYPE_START_CHILD_WORKFLOW_EXECUTION = Int
11
fromEnum CommandType
COMMAND_TYPE_SIGNAL_EXTERNAL_WORKFLOW_EXECUTION = Int
12
fromEnum CommandType
COMMAND_TYPE_UPSERT_WORKFLOW_SEARCH_ATTRIBUTES = Int
13
fromEnum CommandType
COMMAND_TYPE_PROTOCOL_MESSAGE = Int
14
fromEnum CommandType
COMMAND_TYPE_MODIFY_WORKFLOW_PROPERTIES = Int
16
fromEnum CommandType
COMMAND_TYPE_SCHEDULE_NEXUS_OPERATION = Int
17
fromEnum CommandType
COMMAND_TYPE_REQUEST_CANCEL_NEXUS_OPERATION = Int
18
fromEnum
(CommandType'Unrecognized (CommandType'UnrecognizedValue Int32
k))
= Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
succ :: CommandType -> CommandType
succ CommandType
COMMAND_TYPE_REQUEST_CANCEL_NEXUS_OPERATION
= String -> CommandType
forall a. HasCallStack => String -> a
Prelude.error
String
"CommandType.succ: bad argument COMMAND_TYPE_REQUEST_CANCEL_NEXUS_OPERATION. This value would be out of bounds."
succ CommandType
COMMAND_TYPE_UNSPECIFIED = CommandType
COMMAND_TYPE_SCHEDULE_ACTIVITY_TASK
succ CommandType
COMMAND_TYPE_SCHEDULE_ACTIVITY_TASK
= CommandType
COMMAND_TYPE_REQUEST_CANCEL_ACTIVITY_TASK
succ CommandType
COMMAND_TYPE_REQUEST_CANCEL_ACTIVITY_TASK
= CommandType
COMMAND_TYPE_START_TIMER
succ CommandType
COMMAND_TYPE_START_TIMER
= CommandType
COMMAND_TYPE_COMPLETE_WORKFLOW_EXECUTION
succ CommandType
COMMAND_TYPE_COMPLETE_WORKFLOW_EXECUTION
= CommandType
COMMAND_TYPE_FAIL_WORKFLOW_EXECUTION
succ CommandType
COMMAND_TYPE_FAIL_WORKFLOW_EXECUTION
= CommandType
COMMAND_TYPE_CANCEL_TIMER
succ CommandType
COMMAND_TYPE_CANCEL_TIMER
= CommandType
COMMAND_TYPE_CANCEL_WORKFLOW_EXECUTION
succ CommandType
COMMAND_TYPE_CANCEL_WORKFLOW_EXECUTION
= CommandType
COMMAND_TYPE_REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION
succ CommandType
COMMAND_TYPE_REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION
= CommandType
COMMAND_TYPE_RECORD_MARKER
succ CommandType
COMMAND_TYPE_RECORD_MARKER
= CommandType
COMMAND_TYPE_CONTINUE_AS_NEW_WORKFLOW_EXECUTION
succ CommandType
COMMAND_TYPE_CONTINUE_AS_NEW_WORKFLOW_EXECUTION
= CommandType
COMMAND_TYPE_START_CHILD_WORKFLOW_EXECUTION
succ CommandType
COMMAND_TYPE_START_CHILD_WORKFLOW_EXECUTION
= CommandType
COMMAND_TYPE_SIGNAL_EXTERNAL_WORKFLOW_EXECUTION
succ CommandType
COMMAND_TYPE_SIGNAL_EXTERNAL_WORKFLOW_EXECUTION
= CommandType
COMMAND_TYPE_UPSERT_WORKFLOW_SEARCH_ATTRIBUTES
succ CommandType
COMMAND_TYPE_UPSERT_WORKFLOW_SEARCH_ATTRIBUTES
= CommandType
COMMAND_TYPE_PROTOCOL_MESSAGE
succ CommandType
COMMAND_TYPE_PROTOCOL_MESSAGE
= CommandType
COMMAND_TYPE_MODIFY_WORKFLOW_PROPERTIES
succ CommandType
COMMAND_TYPE_MODIFY_WORKFLOW_PROPERTIES
= CommandType
COMMAND_TYPE_SCHEDULE_NEXUS_OPERATION
succ CommandType
COMMAND_TYPE_SCHEDULE_NEXUS_OPERATION
= CommandType
COMMAND_TYPE_REQUEST_CANCEL_NEXUS_OPERATION
succ (CommandType'Unrecognized CommandType'UnrecognizedValue
_)
= String -> CommandType
forall a. HasCallStack => String -> a
Prelude.error
String
"CommandType.succ: bad argument: unrecognized value"
pred :: CommandType -> CommandType
pred CommandType
COMMAND_TYPE_UNSPECIFIED
= String -> CommandType
forall a. HasCallStack => String -> a
Prelude.error
String
"CommandType.pred: bad argument COMMAND_TYPE_UNSPECIFIED. This value would be out of bounds."
pred CommandType
COMMAND_TYPE_SCHEDULE_ACTIVITY_TASK = CommandType
COMMAND_TYPE_UNSPECIFIED
pred CommandType
COMMAND_TYPE_REQUEST_CANCEL_ACTIVITY_TASK
= CommandType
COMMAND_TYPE_SCHEDULE_ACTIVITY_TASK
pred CommandType
COMMAND_TYPE_START_TIMER
= CommandType
COMMAND_TYPE_REQUEST_CANCEL_ACTIVITY_TASK
pred CommandType
COMMAND_TYPE_COMPLETE_WORKFLOW_EXECUTION
= CommandType
COMMAND_TYPE_START_TIMER
pred CommandType
COMMAND_TYPE_FAIL_WORKFLOW_EXECUTION
= CommandType
COMMAND_TYPE_COMPLETE_WORKFLOW_EXECUTION
pred CommandType
COMMAND_TYPE_CANCEL_TIMER
= CommandType
COMMAND_TYPE_FAIL_WORKFLOW_EXECUTION
pred CommandType
COMMAND_TYPE_CANCEL_WORKFLOW_EXECUTION
= CommandType
COMMAND_TYPE_CANCEL_TIMER
pred CommandType
COMMAND_TYPE_REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION
= CommandType
COMMAND_TYPE_CANCEL_WORKFLOW_EXECUTION
pred CommandType
COMMAND_TYPE_RECORD_MARKER
= CommandType
COMMAND_TYPE_REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION
pred CommandType
COMMAND_TYPE_CONTINUE_AS_NEW_WORKFLOW_EXECUTION
= CommandType
COMMAND_TYPE_RECORD_MARKER
pred CommandType
COMMAND_TYPE_START_CHILD_WORKFLOW_EXECUTION
= CommandType
COMMAND_TYPE_CONTINUE_AS_NEW_WORKFLOW_EXECUTION
pred CommandType
COMMAND_TYPE_SIGNAL_EXTERNAL_WORKFLOW_EXECUTION
= CommandType
COMMAND_TYPE_START_CHILD_WORKFLOW_EXECUTION
pred CommandType
COMMAND_TYPE_UPSERT_WORKFLOW_SEARCH_ATTRIBUTES
= CommandType
COMMAND_TYPE_SIGNAL_EXTERNAL_WORKFLOW_EXECUTION
pred CommandType
COMMAND_TYPE_PROTOCOL_MESSAGE
= CommandType
COMMAND_TYPE_UPSERT_WORKFLOW_SEARCH_ATTRIBUTES
pred CommandType
COMMAND_TYPE_MODIFY_WORKFLOW_PROPERTIES
= CommandType
COMMAND_TYPE_PROTOCOL_MESSAGE
pred CommandType
COMMAND_TYPE_SCHEDULE_NEXUS_OPERATION
= CommandType
COMMAND_TYPE_MODIFY_WORKFLOW_PROPERTIES
pred CommandType
COMMAND_TYPE_REQUEST_CANCEL_NEXUS_OPERATION
= CommandType
COMMAND_TYPE_SCHEDULE_NEXUS_OPERATION
pred (CommandType'Unrecognized CommandType'UnrecognizedValue
_)
= String -> CommandType
forall a. HasCallStack => String -> a
Prelude.error
String
"CommandType.pred: bad argument: unrecognized value"
enumFrom :: CommandType -> [CommandType]
enumFrom = CommandType -> [CommandType]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo :: CommandType -> CommandType -> [CommandType]
enumFromTo = CommandType -> CommandType -> [CommandType]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen :: CommandType -> CommandType -> [CommandType]
enumFromThen = CommandType -> CommandType -> [CommandType]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo :: CommandType -> CommandType -> CommandType -> [CommandType]
enumFromThenTo = CommandType -> CommandType -> CommandType -> [CommandType]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault CommandType where
fieldDefault :: CommandType
fieldDefault = CommandType
COMMAND_TYPE_UNSPECIFIED
instance Control.DeepSeq.NFData CommandType where
rnf :: CommandType -> ()
rnf CommandType
x__ = CommandType -> () -> ()
forall a b. a -> b -> b
Prelude.seq CommandType
x__ ()