diff --git a/amazonka-swf.cabal b/amazonka-swf.cabal --- a/amazonka-swf.cabal +++ b/amazonka-swf.cabal @@ -1,5 +1,5 @@ name: amazonka-swf -version: 0.2.1 +version: 0.2.2 synopsis: Amazon Simple Workflow Service SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -77,5 +77,5 @@ other-modules: build-depends: - amazonka-core == 0.2.1.* + amazonka-core == 0.2.2.* , base >= 4.7 && < 5 diff --git a/gen/Network/AWS/SWF/CountClosedWorkflowExecutions.hs b/gen/Network/AWS/SWF/CountClosedWorkflowExecutions.hs --- a/gen/Network/AWS/SWF/CountClosedWorkflowExecutions.hs +++ b/gen/Network/AWS/SWF/CountClosedWorkflowExecutions.hs @@ -78,7 +78,7 @@ , _ccweStartTimeFilter :: Maybe ExecutionTimeFilter , _ccweTagFilter :: Maybe TagFilter , _ccweTypeFilter :: Maybe WorkflowTypeFilter - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'CountClosedWorkflowExecutions' constructor. -- @@ -168,7 +168,7 @@ data CountClosedWorkflowExecutionsResponse = CountClosedWorkflowExecutionsResponse { _ccwerCount :: Nat , _ccwerTruncated :: Maybe Bool - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'CountClosedWorkflowExecutionsResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/CountOpenWorkflowExecutions.hs b/gen/Network/AWS/SWF/CountOpenWorkflowExecutions.hs --- a/gen/Network/AWS/SWF/CountOpenWorkflowExecutions.hs +++ b/gen/Network/AWS/SWF/CountOpenWorkflowExecutions.hs @@ -74,7 +74,7 @@ , _coweStartTimeFilter :: ExecutionTimeFilter , _coweTagFilter :: Maybe TagFilter , _coweTypeFilter :: Maybe WorkflowTypeFilter - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'CountOpenWorkflowExecutions' constructor. -- @@ -138,7 +138,7 @@ data CountOpenWorkflowExecutionsResponse = CountOpenWorkflowExecutionsResponse { _cowerCount :: Nat , _cowerTruncated :: Maybe Bool - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'CountOpenWorkflowExecutionsResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/CountPendingActivityTasks.hs b/gen/Network/AWS/SWF/CountPendingActivityTasks.hs --- a/gen/Network/AWS/SWF/CountPendingActivityTasks.hs +++ b/gen/Network/AWS/SWF/CountPendingActivityTasks.hs @@ -70,7 +70,7 @@ data CountPendingActivityTasks = CountPendingActivityTasks { _cpatDomain :: Text , _cpatTaskList :: TaskList - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'CountPendingActivityTasks' constructor. -- @@ -99,7 +99,7 @@ data CountPendingActivityTasksResponse = CountPendingActivityTasksResponse { _cpatrCount :: Nat , _cpatrTruncated :: Maybe Bool - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'CountPendingActivityTasksResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/CountPendingDecisionTasks.hs b/gen/Network/AWS/SWF/CountPendingDecisionTasks.hs --- a/gen/Network/AWS/SWF/CountPendingDecisionTasks.hs +++ b/gen/Network/AWS/SWF/CountPendingDecisionTasks.hs @@ -70,7 +70,7 @@ data CountPendingDecisionTasks = CountPendingDecisionTasks { _cpdtDomain :: Text , _cpdtTaskList :: TaskList - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'CountPendingDecisionTasks' constructor. -- @@ -99,7 +99,7 @@ data CountPendingDecisionTasksResponse = CountPendingDecisionTasksResponse { _cpdtrCount :: Nat , _cpdtrTruncated :: Maybe Bool - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'CountPendingDecisionTasksResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/DeprecateActivityType.hs b/gen/Network/AWS/SWF/DeprecateActivityType.hs --- a/gen/Network/AWS/SWF/DeprecateActivityType.hs +++ b/gen/Network/AWS/SWF/DeprecateActivityType.hs @@ -66,7 +66,7 @@ data DeprecateActivityType = DeprecateActivityType { _dat1ActivityType :: ActivityType , _dat1Domain :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DeprecateActivityType' constructor. -- @@ -93,7 +93,7 @@ dat1Domain = lens _dat1Domain (\s a -> s { _dat1Domain = a }) data DeprecateActivityTypeResponse = DeprecateActivityTypeResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DeprecateActivityTypeResponse' constructor. deprecateActivityTypeResponse :: DeprecateActivityTypeResponse diff --git a/gen/Network/AWS/SWF/DeprecateDomain.hs b/gen/Network/AWS/SWF/DeprecateDomain.hs --- a/gen/Network/AWS/SWF/DeprecateDomain.hs +++ b/gen/Network/AWS/SWF/DeprecateDomain.hs @@ -66,7 +66,7 @@ newtype DeprecateDomain = DeprecateDomain { _dd1Name :: Text - } deriving (Eq, Ord, Show, Monoid, IsString) + } deriving (Eq, Ord, Read, Show, Monoid, IsString) -- | 'DeprecateDomain' constructor. -- @@ -85,7 +85,7 @@ dd1Name = lens _dd1Name (\s a -> s { _dd1Name = a }) data DeprecateDomainResponse = DeprecateDomainResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DeprecateDomainResponse' constructor. deprecateDomainResponse :: DeprecateDomainResponse diff --git a/gen/Network/AWS/SWF/DeprecateWorkflowType.hs b/gen/Network/AWS/SWF/DeprecateWorkflowType.hs --- a/gen/Network/AWS/SWF/DeprecateWorkflowType.hs +++ b/gen/Network/AWS/SWF/DeprecateWorkflowType.hs @@ -67,7 +67,7 @@ data DeprecateWorkflowType = DeprecateWorkflowType { _dwt1Domain :: Text , _dwt1WorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DeprecateWorkflowType' constructor. -- @@ -94,7 +94,7 @@ dwt1WorkflowType = lens _dwt1WorkflowType (\s a -> s { _dwt1WorkflowType = a }) data DeprecateWorkflowTypeResponse = DeprecateWorkflowTypeResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'DeprecateWorkflowTypeResponse' constructor. deprecateWorkflowTypeResponse :: DeprecateWorkflowTypeResponse diff --git a/gen/Network/AWS/SWF/DescribeActivityType.hs b/gen/Network/AWS/SWF/DescribeActivityType.hs --- a/gen/Network/AWS/SWF/DescribeActivityType.hs +++ b/gen/Network/AWS/SWF/DescribeActivityType.hs @@ -68,7 +68,7 @@ data DescribeActivityType = DescribeActivityType { _datActivityType :: ActivityType , _datDomain :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribeActivityType' constructor. -- @@ -98,7 +98,7 @@ data DescribeActivityTypeResponse = DescribeActivityTypeResponse { _datrConfiguration :: ActivityTypeConfiguration , _datrTypeInfo :: ActivityTypeInfo - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribeActivityTypeResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/DescribeDomain.hs b/gen/Network/AWS/SWF/DescribeDomain.hs --- a/gen/Network/AWS/SWF/DescribeDomain.hs +++ b/gen/Network/AWS/SWF/DescribeDomain.hs @@ -64,7 +64,7 @@ newtype DescribeDomain = DescribeDomain { _ddName :: Text - } deriving (Eq, Ord, Show, Monoid, IsString) + } deriving (Eq, Ord, Read, Show, Monoid, IsString) -- | 'DescribeDomain' constructor. -- @@ -85,7 +85,7 @@ data DescribeDomainResponse = DescribeDomainResponse { _ddrConfiguration :: DomainConfiguration , _ddrDomainInfo :: DomainInfo - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribeDomainResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/DescribeWorkflowExecution.hs b/gen/Network/AWS/SWF/DescribeWorkflowExecution.hs --- a/gen/Network/AWS/SWF/DescribeWorkflowExecution.hs +++ b/gen/Network/AWS/SWF/DescribeWorkflowExecution.hs @@ -70,7 +70,7 @@ data DescribeWorkflowExecution = DescribeWorkflowExecution { _dweDomain :: Text , _dweExecution :: WorkflowExecution - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribeWorkflowExecution' constructor. -- @@ -102,7 +102,7 @@ , _dwerLatestActivityTaskTimestamp :: Maybe POSIX , _dwerLatestExecutionContext :: Maybe Text , _dwerOpenCounts :: WorkflowExecutionOpenCounts - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribeWorkflowExecutionResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/DescribeWorkflowType.hs b/gen/Network/AWS/SWF/DescribeWorkflowType.hs --- a/gen/Network/AWS/SWF/DescribeWorkflowType.hs +++ b/gen/Network/AWS/SWF/DescribeWorkflowType.hs @@ -68,7 +68,7 @@ data DescribeWorkflowType = DescribeWorkflowType { _dwtDomain :: Text , _dwtWorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribeWorkflowType' constructor. -- @@ -97,7 +97,7 @@ data DescribeWorkflowTypeResponse = DescribeWorkflowTypeResponse { _dwtrConfiguration :: WorkflowTypeConfiguration , _dwtrTypeInfo :: WorkflowTypeInfo - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DescribeWorkflowTypeResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/GetWorkflowExecutionHistory.hs b/gen/Network/AWS/SWF/GetWorkflowExecutionHistory.hs --- a/gen/Network/AWS/SWF/GetWorkflowExecutionHistory.hs +++ b/gen/Network/AWS/SWF/GetWorkflowExecutionHistory.hs @@ -74,7 +74,7 @@ , _gwehMaximumPageSize :: Maybe Nat , _gwehNextPageToken :: Maybe Text , _gwehReverseOrder :: Maybe Bool - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'GetWorkflowExecutionHistory' constructor. -- @@ -139,7 +139,7 @@ data GetWorkflowExecutionHistoryResponse = GetWorkflowExecutionHistoryResponse { _gwehrEvents :: List "events" HistoryEvent , _gwehrNextPageToken :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'GetWorkflowExecutionHistoryResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/ListActivityTypes.hs b/gen/Network/AWS/SWF/ListActivityTypes.hs --- a/gen/Network/AWS/SWF/ListActivityTypes.hs +++ b/gen/Network/AWS/SWF/ListActivityTypes.hs @@ -77,7 +77,7 @@ , _latNextPageToken :: Maybe Text , _latRegistrationStatus :: RegistrationStatus , _latReverseOrder :: Maybe Bool - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ListActivityTypes' constructor. -- @@ -150,7 +150,7 @@ data ListActivityTypesResponse = ListActivityTypesResponse { _latrNextPageToken :: Maybe Text , _latrTypeInfos :: List "typeInfos" ActivityTypeInfo - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ListActivityTypesResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/ListClosedWorkflowExecutions.hs b/gen/Network/AWS/SWF/ListClosedWorkflowExecutions.hs --- a/gen/Network/AWS/SWF/ListClosedWorkflowExecutions.hs +++ b/gen/Network/AWS/SWF/ListClosedWorkflowExecutions.hs @@ -86,7 +86,7 @@ , _lcweStartTimeFilter :: Maybe ExecutionTimeFilter , _lcweTagFilter :: Maybe TagFilter , _lcweTypeFilter :: Maybe WorkflowTypeFilter - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ListClosedWorkflowExecutions' constructor. -- @@ -218,7 +218,7 @@ data ListClosedWorkflowExecutionsResponse = ListClosedWorkflowExecutionsResponse { _lcwerExecutionInfos :: List "executionInfos" WorkflowExecutionInfo , _lcwerNextPageToken :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ListClosedWorkflowExecutionsResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/ListDomains.hs b/gen/Network/AWS/SWF/ListDomains.hs --- a/gen/Network/AWS/SWF/ListDomains.hs +++ b/gen/Network/AWS/SWF/ListDomains.hs @@ -74,7 +74,7 @@ , _ldNextPageToken :: Maybe Text , _ldRegistrationStatus :: RegistrationStatus , _ldReverseOrder :: Maybe Bool - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ListDomains' constructor. -- @@ -131,7 +131,7 @@ data ListDomainsResponse = ListDomainsResponse { _ldrDomainInfos :: List "domainInfos" DomainInfo , _ldrNextPageToken :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ListDomainsResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/ListOpenWorkflowExecutions.hs b/gen/Network/AWS/SWF/ListOpenWorkflowExecutions.hs --- a/gen/Network/AWS/SWF/ListOpenWorkflowExecutions.hs +++ b/gen/Network/AWS/SWF/ListOpenWorkflowExecutions.hs @@ -82,7 +82,7 @@ , _loweStartTimeFilter :: ExecutionTimeFilter , _loweTagFilter :: Maybe TagFilter , _loweTypeFilter :: Maybe WorkflowTypeFilter - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ListOpenWorkflowExecutions' constructor. -- @@ -182,7 +182,7 @@ data ListOpenWorkflowExecutionsResponse = ListOpenWorkflowExecutionsResponse { _lowerExecutionInfos :: List "executionInfos" WorkflowExecutionInfo , _lowerNextPageToken :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ListOpenWorkflowExecutionsResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/ListWorkflowTypes.hs b/gen/Network/AWS/SWF/ListWorkflowTypes.hs --- a/gen/Network/AWS/SWF/ListWorkflowTypes.hs +++ b/gen/Network/AWS/SWF/ListWorkflowTypes.hs @@ -75,7 +75,7 @@ , _lwtNextPageToken :: Maybe Text , _lwtRegistrationStatus :: RegistrationStatus , _lwtReverseOrder :: Maybe Bool - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ListWorkflowTypes' constructor. -- @@ -148,7 +148,7 @@ data ListWorkflowTypesResponse = ListWorkflowTypesResponse { _lwtrNextPageToken :: Maybe Text , _lwtrTypeInfos :: List "typeInfos" WorkflowTypeInfo - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ListWorkflowTypesResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/PollForActivityTask.hs b/gen/Network/AWS/SWF/PollForActivityTask.hs --- a/gen/Network/AWS/SWF/PollForActivityTask.hs +++ b/gen/Network/AWS/SWF/PollForActivityTask.hs @@ -82,7 +82,7 @@ { _pfatDomain :: Text , _pfatIdentity :: Maybe Text , _pfatTaskList :: TaskList - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'PollForActivityTask' constructor. -- @@ -129,7 +129,7 @@ , _pfatrStartedEventId :: Integer , _pfatrTaskToken :: Text , _pfatrWorkflowExecution :: WorkflowExecution - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'PollForActivityTaskResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/PollForDecisionTask.hs b/gen/Network/AWS/SWF/PollForDecisionTask.hs --- a/gen/Network/AWS/SWF/PollForDecisionTask.hs +++ b/gen/Network/AWS/SWF/PollForDecisionTask.hs @@ -97,7 +97,7 @@ , _pfdtNextPageToken :: Maybe Text , _pfdtReverseOrder :: Maybe Bool , _pfdtTaskList :: TaskList - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'PollForDecisionTask' constructor. -- @@ -184,7 +184,7 @@ , _pfdtrTaskToken :: Text , _pfdtrWorkflowExecution :: WorkflowExecution , _pfdtrWorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'PollForDecisionTaskResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/RecordActivityTaskHeartbeat.hs b/gen/Network/AWS/SWF/RecordActivityTaskHeartbeat.hs --- a/gen/Network/AWS/SWF/RecordActivityTaskHeartbeat.hs +++ b/gen/Network/AWS/SWF/RecordActivityTaskHeartbeat.hs @@ -83,7 +83,7 @@ data RecordActivityTaskHeartbeat = RecordActivityTaskHeartbeat { _rathDetails :: Maybe Text , _rathTaskToken :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'RecordActivityTaskHeartbeat' constructor. -- @@ -114,7 +114,7 @@ newtype RecordActivityTaskHeartbeatResponse = RecordActivityTaskHeartbeatResponse { _rathrCancelRequested :: Bool - } deriving (Eq, Ord, Show, Enum) + } deriving (Eq, Ord, Read, Show, Enum) -- | 'RecordActivityTaskHeartbeatResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/RegisterActivityType.hs b/gen/Network/AWS/SWF/RegisterActivityType.hs --- a/gen/Network/AWS/SWF/RegisterActivityType.hs +++ b/gen/Network/AWS/SWF/RegisterActivityType.hs @@ -83,7 +83,7 @@ , _ratDomain :: Text , _ratName :: Text , _ratVersion :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'RegisterActivityType' constructor. -- @@ -217,7 +217,7 @@ ratVersion = lens _ratVersion (\s a -> s { _ratVersion = a }) data RegisterActivityTypeResponse = RegisterActivityTypeResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'RegisterActivityTypeResponse' constructor. registerActivityTypeResponse :: RegisterActivityTypeResponse diff --git a/gen/Network/AWS/SWF/RegisterDomain.hs b/gen/Network/AWS/SWF/RegisterDomain.hs --- a/gen/Network/AWS/SWF/RegisterDomain.hs +++ b/gen/Network/AWS/SWF/RegisterDomain.hs @@ -65,7 +65,7 @@ { _rdDescription :: Maybe Text , _rdName :: Text , _rdWorkflowExecutionRetentionPeriodInDays :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'RegisterDomain' constructor. -- @@ -117,7 +117,7 @@ (\s a -> s { _rdWorkflowExecutionRetentionPeriodInDays = a }) data RegisterDomainResponse = RegisterDomainResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'RegisterDomainResponse' constructor. registerDomainResponse :: RegisterDomainResponse diff --git a/gen/Network/AWS/SWF/RegisterWorkflowType.hs b/gen/Network/AWS/SWF/RegisterWorkflowType.hs --- a/gen/Network/AWS/SWF/RegisterWorkflowType.hs +++ b/gen/Network/AWS/SWF/RegisterWorkflowType.hs @@ -84,7 +84,7 @@ , _rwtDomain :: Text , _rwtName :: Text , _rwtVersion :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'RegisterWorkflowType' constructor. -- @@ -209,7 +209,7 @@ rwtVersion = lens _rwtVersion (\s a -> s { _rwtVersion = a }) data RegisterWorkflowTypeResponse = RegisterWorkflowTypeResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'RegisterWorkflowTypeResponse' constructor. registerWorkflowTypeResponse :: RegisterWorkflowTypeResponse diff --git a/gen/Network/AWS/SWF/RequestCancelWorkflowExecution.hs b/gen/Network/AWS/SWF/RequestCancelWorkflowExecution.hs --- a/gen/Network/AWS/SWF/RequestCancelWorkflowExecution.hs +++ b/gen/Network/AWS/SWF/RequestCancelWorkflowExecution.hs @@ -71,7 +71,7 @@ { _rcweDomain :: Text , _rcweRunId :: Maybe Text , _rcweWorkflowId :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'RequestCancelWorkflowExecution' constructor. -- @@ -105,7 +105,7 @@ rcweWorkflowId = lens _rcweWorkflowId (\s a -> s { _rcweWorkflowId = a }) data RequestCancelWorkflowExecutionResponse = RequestCancelWorkflowExecutionResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'RequestCancelWorkflowExecutionResponse' constructor. requestCancelWorkflowExecutionResponse :: RequestCancelWorkflowExecutionResponse diff --git a/gen/Network/AWS/SWF/RespondActivityTaskCanceled.hs b/gen/Network/AWS/SWF/RespondActivityTaskCanceled.hs --- a/gen/Network/AWS/SWF/RespondActivityTaskCanceled.hs +++ b/gen/Network/AWS/SWF/RespondActivityTaskCanceled.hs @@ -70,7 +70,7 @@ data RespondActivityTaskCanceled = RespondActivityTaskCanceled { _ratc1Details :: Maybe Text , _ratc1TaskToken :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'RespondActivityTaskCanceled' constructor. -- @@ -100,7 +100,7 @@ ratc1TaskToken = lens _ratc1TaskToken (\s a -> s { _ratc1TaskToken = a }) data RespondActivityTaskCanceledResponse = RespondActivityTaskCanceledResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'RespondActivityTaskCanceledResponse' constructor. respondActivityTaskCanceledResponse :: RespondActivityTaskCanceledResponse diff --git a/gen/Network/AWS/SWF/RespondActivityTaskCompleted.hs b/gen/Network/AWS/SWF/RespondActivityTaskCompleted.hs --- a/gen/Network/AWS/SWF/RespondActivityTaskCompleted.hs +++ b/gen/Network/AWS/SWF/RespondActivityTaskCompleted.hs @@ -70,7 +70,7 @@ data RespondActivityTaskCompleted = RespondActivityTaskCompleted { _ratcResult :: Maybe Text , _ratcTaskToken :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'RespondActivityTaskCompleted' constructor. -- @@ -101,7 +101,7 @@ ratcTaskToken = lens _ratcTaskToken (\s a -> s { _ratcTaskToken = a }) data RespondActivityTaskCompletedResponse = RespondActivityTaskCompletedResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'RespondActivityTaskCompletedResponse' constructor. respondActivityTaskCompletedResponse :: RespondActivityTaskCompletedResponse diff --git a/gen/Network/AWS/SWF/RespondActivityTaskFailed.hs b/gen/Network/AWS/SWF/RespondActivityTaskFailed.hs --- a/gen/Network/AWS/SWF/RespondActivityTaskFailed.hs +++ b/gen/Network/AWS/SWF/RespondActivityTaskFailed.hs @@ -68,7 +68,7 @@ { _ratfDetails :: Maybe Text , _ratfReason :: Maybe Text , _ratfTaskToken :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'RespondActivityTaskFailed' constructor. -- @@ -105,7 +105,7 @@ ratfTaskToken = lens _ratfTaskToken (\s a -> s { _ratfTaskToken = a }) data RespondActivityTaskFailedResponse = RespondActivityTaskFailedResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'RespondActivityTaskFailedResponse' constructor. respondActivityTaskFailedResponse :: RespondActivityTaskFailedResponse diff --git a/gen/Network/AWS/SWF/RespondDecisionTaskCompleted.hs b/gen/Network/AWS/SWF/RespondDecisionTaskCompleted.hs --- a/gen/Network/AWS/SWF/RespondDecisionTaskCompleted.hs +++ b/gen/Network/AWS/SWF/RespondDecisionTaskCompleted.hs @@ -63,7 +63,7 @@ { _rdtcDecisions :: List "decisions" Decision , _rdtcExecutionContext :: Maybe Text , _rdtcTaskToken :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'RespondDecisionTaskCompleted' constructor. -- @@ -102,7 +102,7 @@ rdtcTaskToken = lens _rdtcTaskToken (\s a -> s { _rdtcTaskToken = a }) data RespondDecisionTaskCompletedResponse = RespondDecisionTaskCompletedResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'RespondDecisionTaskCompletedResponse' constructor. respondDecisionTaskCompletedResponse :: RespondDecisionTaskCompletedResponse diff --git a/gen/Network/AWS/SWF/SignalWorkflowExecution.hs b/gen/Network/AWS/SWF/SignalWorkflowExecution.hs --- a/gen/Network/AWS/SWF/SignalWorkflowExecution.hs +++ b/gen/Network/AWS/SWF/SignalWorkflowExecution.hs @@ -74,7 +74,7 @@ , _sweRunId :: Maybe Text , _sweSignalName :: Text , _sweWorkflowId :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'SignalWorkflowExecution' constructor. -- @@ -124,7 +124,7 @@ sweWorkflowId = lens _sweWorkflowId (\s a -> s { _sweWorkflowId = a }) data SignalWorkflowExecutionResponse = SignalWorkflowExecutionResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'SignalWorkflowExecutionResponse' constructor. signalWorkflowExecutionResponse :: SignalWorkflowExecutionResponse diff --git a/gen/Network/AWS/SWF/StartWorkflowExecution.hs b/gen/Network/AWS/SWF/StartWorkflowExecution.hs --- a/gen/Network/AWS/SWF/StartWorkflowExecution.hs +++ b/gen/Network/AWS/SWF/StartWorkflowExecution.hs @@ -89,7 +89,7 @@ , _swe1TaskStartToCloseTimeout :: Maybe Text , _swe1WorkflowId :: Text , _swe1WorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'StartWorkflowExecution' constructor. -- @@ -246,7 +246,7 @@ newtype StartWorkflowExecutionResponse = StartWorkflowExecutionResponse { _swerRunId :: Maybe Text - } deriving (Eq, Ord, Show, Monoid) + } deriving (Eq, Ord, Read, Show, Monoid) -- | 'StartWorkflowExecutionResponse' constructor. -- diff --git a/gen/Network/AWS/SWF/TerminateWorkflowExecution.hs b/gen/Network/AWS/SWF/TerminateWorkflowExecution.hs --- a/gen/Network/AWS/SWF/TerminateWorkflowExecution.hs +++ b/gen/Network/AWS/SWF/TerminateWorkflowExecution.hs @@ -76,7 +76,7 @@ , _tweReason :: Maybe Text , _tweRunId :: Maybe Text , _tweWorkflowId :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'TerminateWorkflowExecution' constructor. -- @@ -145,7 +145,7 @@ tweWorkflowId = lens _tweWorkflowId (\s a -> s { _tweWorkflowId = a }) data TerminateWorkflowExecutionResponse = TerminateWorkflowExecutionResponse - deriving (Eq, Ord, Show, Generic) + deriving (Eq, Ord, Read, Show, Generic) -- | 'TerminateWorkflowExecutionResponse' constructor. terminateWorkflowExecutionResponse :: TerminateWorkflowExecutionResponse diff --git a/gen/Network/AWS/SWF/Types.hs b/gen/Network/AWS/SWF/Types.hs --- a/gen/Network/AWS/SWF/Types.hs +++ b/gen/Network/AWS/SWF/Types.hs @@ -840,7 +840,7 @@ { _wecreaCause :: Maybe WorkflowExecutionCancelRequestedCause , _wecreaExternalInitiatedEventId :: Maybe Integer , _wecreaExternalWorkflowExecution :: Maybe WorkflowExecution - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'WorkflowExecutionCancelRequestedEventAttributes' constructor. -- @@ -900,7 +900,7 @@ { _rcewedaControl :: Maybe Text , _rcewedaRunId :: Maybe Text , _rcewedaWorkflowId :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'RequestCancelExternalWorkflowExecutionDecisionAttributes' constructor. -- @@ -951,7 +951,7 @@ { _dtseaStartToCloseTimeout :: Maybe Text , _dtseaTaskList :: TaskList , _dtseaTaskPriority :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DecisionTaskScheduledEventAttributes' constructor. -- @@ -1011,7 +1011,7 @@ data WorkflowExecutionCompletedEventAttributes = WorkflowExecutionCompletedEventAttributes { _weceaDecisionTaskCompletedEventId :: Integer , _weceaResult :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'WorkflowExecutionCompletedEventAttributes' constructor. -- @@ -1055,7 +1055,7 @@ data ExecutionTimeFilter = ExecutionTimeFilter { _etfLatestDate :: Maybe POSIX , _etfOldestDate :: POSIX - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'ExecutionTimeFilter' constructor. -- @@ -1095,7 +1095,7 @@ { _stfeaCause :: StartTimerFailedCause , _stfeaDecisionTaskCompletedEventId :: Integer , _stfeaTimerId :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'StartTimerFailedEventAttributes' constructor. -- @@ -1156,7 +1156,7 @@ , _rceweieaDecisionTaskCompletedEventId :: Integer , _rceweieaRunId :: Maybe Text , _rceweieaWorkflowId :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' constructor. -- @@ -1222,7 +1222,7 @@ { _rmfeaCause :: RecordMarkerFailedCause , _rmfeaDecisionTaskCompletedEventId :: Integer , _rmfeaMarkerName :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'RecordMarkerFailedEventAttributes' constructor. -- @@ -1281,7 +1281,7 @@ data WorkflowExecutionCount = WorkflowExecutionCount { _wecCount :: Nat , _wecTruncated :: Maybe Bool - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'WorkflowExecutionCount' constructor. -- @@ -1330,7 +1330,7 @@ , _atseaStartToCloseTimeout :: Maybe Text , _atseaTaskList :: TaskList , _atseaTaskPriority :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ActivityTaskScheduledEventAttributes' constructor. -- @@ -1481,7 +1481,7 @@ newtype CloseStatusFilter = CloseStatusFilter { _csfStatus :: CloseStatus - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'CloseStatusFilter' constructor. -- @@ -1511,7 +1511,7 @@ data WorkflowExecutionTimeoutType = StartToClose -- ^ START_TO_CLOSE - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable WorkflowExecutionTimeoutType @@ -1545,7 +1545,7 @@ , _satdaStartToCloseTimeout :: Maybe Text , _satdaTaskList :: Maybe TaskList , _satdaTaskPriority :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ScheduleActivityTaskDecisionAttributes' constructor. -- @@ -1728,7 +1728,7 @@ , _atcDefaultTaskScheduleToCloseTimeout :: Maybe Text , _atcDefaultTaskScheduleToStartTimeout :: Maybe Text , _atcDefaultTaskStartToCloseTimeout :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ActivityTypeConfiguration' constructor. -- @@ -1851,7 +1851,7 @@ data ActivityType = ActivityType { _atName :: Text , _atVersion :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'ActivityType' constructor. -- @@ -1900,7 +1900,7 @@ , _wtiDescription :: Maybe Text , _wtiStatus :: RegistrationStatus , _wtiWorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'WorkflowTypeInfo' constructor. -- @@ -1974,7 +1974,7 @@ , _cweceaStartedEventId :: Integer , _cweceaWorkflowExecution :: WorkflowExecution , _cweceaWorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ChildWorkflowExecutionCompletedEventAttributes' constructor. -- @@ -2053,7 +2053,7 @@ , _weocOpenChildWorkflowExecutions :: Nat , _weocOpenDecisionTasks :: Nat , _weocOpenTimers :: Nat - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'WorkflowExecutionOpenCounts' constructor. -- @@ -2122,7 +2122,7 @@ data RequestCancelActivityTaskFailedCause = ActivityIdUnknown -- ^ ACTIVITY_ID_UNKNOWN | OperationNotPermitted -- ^ OPERATION_NOT_PERMITTED - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable RequestCancelActivityTaskFailedCause @@ -2153,7 +2153,7 @@ , _satfeaActivityType :: ActivityType , _satfeaCause :: ScheduleActivityTaskFailedCause , _satfeaDecisionTaskCompletedEventId :: Integer - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ScheduleActivityTaskFailedEventAttributes' constructor. -- @@ -2224,7 +2224,7 @@ { _mreaDecisionTaskCompletedEventId :: Integer , _mreaDetails :: Maybe Text , _mreaMarkerName :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'MarkerRecordedEventAttributes' constructor. -- @@ -2281,7 +2281,7 @@ , _sewedaRunId :: Maybe Text , _sewedaSignalName :: Text , _sewedaWorkflowId :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'SignalExternalWorkflowExecutionDecisionAttributes' constructor. -- @@ -2352,7 +2352,7 @@ = ChildPolicyApplied -- ^ CHILD_POLICY_APPLIED | EventLimitExceeded -- ^ EVENT_LIMIT_EXCEEDED | OperatorInitiated -- ^ OPERATOR_INITIATED - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable WorkflowExecutionTerminatedCause @@ -2383,7 +2383,7 @@ data CancelWorkflowExecutionFailedCause = CWEFCOperationNotPermitted -- ^ OPERATION_NOT_PERMITTED | CWEFCUnhandledDecision -- ^ UNHANDLED_DECISION - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable CancelWorkflowExecutionFailedCause @@ -2413,7 +2413,7 @@ = SEWEFCOperationNotPermitted -- ^ OPERATION_NOT_PERMITTED | SEWEFCSignalExternalWorkflowExecutionRateExceeded -- ^ SIGNAL_EXTERNAL_WORKFLOW_EXECUTION_RATE_EXCEEDED | SEWEFCUnknownExternalWorkflowExecution -- ^ UNKNOWN_EXTERNAL_WORKFLOW_EXECUTION - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable SignalExternalWorkflowExecutionFailedCause @@ -2444,7 +2444,7 @@ data RecordMarkerDecisionAttributes = RecordMarkerDecisionAttributes { _rmdaDetails :: Maybe Text , _rmdaMarkerName :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'RecordMarkerDecisionAttributes' constructor. -- @@ -2483,7 +2483,7 @@ data CompleteWorkflowExecutionFailedEventAttributes = CompleteWorkflowExecutionFailedEventAttributes { _cwefeaCause :: CompleteWorkflowExecutionFailedCause , _cwefeaDecisionTaskCompletedEventId :: Integer - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'CompleteWorkflowExecutionFailedEventAttributes' constructor. -- @@ -2533,7 +2533,7 @@ { _stdaControl :: Maybe Text , _stdaStartToFireTimeout :: Text , _stdaTimerId :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'StartTimerDecisionAttributes' constructor. -- @@ -2601,7 +2601,7 @@ | SignalExternalWorkflowExecution -- ^ SignalExternalWorkflowExecution | StartChildWorkflowExecution -- ^ StartChildWorkflowExecution | StartTimer -- ^ StartTimer - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable DecisionType @@ -2654,7 +2654,7 @@ , _rcewefeaInitiatedEventId :: Integer , _rcewefeaRunId :: Maybe Text , _rcewefeaWorkflowId :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'RequestCancelExternalWorkflowExecutionFailedEventAttributes' constructor. -- @@ -2751,7 +2751,7 @@ , _atiDeprecationDate :: Maybe POSIX , _atiDescription :: Maybe Text , _atiStatus :: RegistrationStatus - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ActivityTypeInfo' constructor. -- @@ -2822,7 +2822,7 @@ { _tceaDecisionTaskCompletedEventId :: Integer , _tceaStartedEventId :: Integer , _tceaTimerId :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'TimerCanceledEventAttributes' constructor. -- @@ -2889,7 +2889,7 @@ , _weseaTaskPriority :: Maybe Text , _weseaTaskStartToCloseTimeout :: Maybe Text , _weseaWorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'WorkflowExecutionStartedEventAttributes' constructor. -- @@ -3048,7 +3048,7 @@ , _wtcDefaultTaskList :: Maybe TaskList , _wtcDefaultTaskPriority :: Maybe Text , _wtcDefaultTaskStartToCloseTimeout :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'WorkflowTypeConfiguration' constructor. -- @@ -3159,7 +3159,7 @@ | ATTTScheduleToClose -- ^ SCHEDULE_TO_CLOSE | ATTTScheduleToStart -- ^ SCHEDULE_TO_START | ATTTStartToClose -- ^ START_TO_CLOSE - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable ActivityTaskTimeoutType @@ -3192,7 +3192,7 @@ data WorkflowType = WorkflowType { _wtName :: Text , _wtVersion :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'WorkflowType' constructor. -- @@ -3239,7 +3239,7 @@ { _atceaResult :: Maybe Text , _atceaScheduledEventId :: Integer , _atceaStartedEventId :: Integer - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'ActivityTaskCompletedEventAttributes' constructor. -- @@ -3294,7 +3294,7 @@ data ExecutionStatus = Closed -- ^ CLOSED | Open -- ^ OPEN - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable ExecutionStatus @@ -3322,7 +3322,7 @@ data DecisionTaskTimeoutType = DTTTStartToClose -- ^ START_TO_CLOSE - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable DecisionTaskTimeoutType @@ -3347,7 +3347,7 @@ data WorkflowExecutionCancelRequestedCause = WECRCChildPolicyApplied -- ^ CHILD_POLICY_APPLIED - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable WorkflowExecutionCancelRequestedCause @@ -3382,7 +3382,7 @@ | SCWEFCWorkflowAlreadyRunning -- ^ WORKFLOW_ALREADY_RUNNING | SCWEFCWorkflowTypeDeprecated -- ^ WORKFLOW_TYPE_DEPRECATED | SCWEFCWorkflowTypeDoesNotExist -- ^ WORKFLOW_TYPE_DOES_NOT_EXIST - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable StartChildWorkflowExecutionFailedCause @@ -3430,7 +3430,7 @@ { _dttoeaScheduledEventId :: Integer , _dttoeaStartedEventId :: Integer , _dttoeaTimeoutType :: DecisionTaskTimeoutType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DecisionTaskTimedOutEventAttributes' constructor. -- @@ -3488,7 +3488,7 @@ { _cweseaInitiatedEventId :: Integer , _cweseaWorkflowExecution :: WorkflowExecution , _cweseaWorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ChildWorkflowExecutionStartedEventAttributes' constructor. -- @@ -3544,7 +3544,7 @@ { _ctfeaCause :: CancelTimerFailedCause , _ctfeaDecisionTaskCompletedEventId :: Integer , _ctfeaTimerId :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'CancelTimerFailedEventAttributes' constructor. -- @@ -3603,7 +3603,7 @@ data FailWorkflowExecutionFailedCause = FWEFCOperationNotPermitted -- ^ OPERATION_NOT_PERMITTED | FWEFCUnhandledDecision -- ^ UNHANDLED_DECISION - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable FailWorkflowExecutionFailedCause @@ -3631,7 +3631,7 @@ newtype WorkflowExecutionFilter = WorkflowExecutionFilter { _wefWorkflowId :: Text - } deriving (Eq, Ord, Show, Monoid, IsString) + } deriving (Eq, Ord, Read, Show, Monoid, IsString) -- | 'WorkflowExecutionFilter' constructor. -- @@ -3663,7 +3663,7 @@ , _atcea1LatestCancelRequestedEventId :: Maybe Integer , _atcea1ScheduledEventId :: Integer , _atcea1StartedEventId :: Integer - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'ActivityTaskCanceledEventAttributes' constructor. -- @@ -3732,7 +3732,7 @@ data WorkflowExecutionInfos = WorkflowExecutionInfos { _weiExecutionInfos :: List "executionInfos" WorkflowExecutionInfo , _weiNextPageToken :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'WorkflowExecutionInfos' constructor. -- @@ -3785,7 +3785,7 @@ , _scwedaTaskStartToCloseTimeout :: Maybe Text , _scwedaWorkflowId :: Text , _scwedaWorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'StartChildWorkflowExecutionDecisionAttributes' constructor. -- @@ -3973,7 +3973,7 @@ | CANWEFCUnhandledDecision -- ^ UNHANDLED_DECISION | CANWEFCWorkflowTypeDeprecated -- ^ WORKFLOW_TYPE_DEPRECATED | CANWEFCWorkflowTypeDoesNotExist -- ^ WORKFLOW_TYPE_DOES_NOT_EXIST - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable ContinueAsNewWorkflowExecutionFailedCause @@ -4016,7 +4016,7 @@ data FailWorkflowExecutionDecisionAttributes = FailWorkflowExecutionDecisionAttributes { _fwedaDetails :: Maybe Text , _fwedaReason :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'FailWorkflowExecutionDecisionAttributes' constructor. -- @@ -4099,7 +4099,7 @@ | WorkflowExecutionStarted -- ^ WorkflowExecutionStarted | WorkflowExecutionTerminated -- ^ WorkflowExecutionTerminated | WorkflowExecutionTimedOut -- ^ WorkflowExecutionTimedOut - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable EventType @@ -4220,7 +4220,7 @@ , _attoeaScheduledEventId :: Integer , _attoeaStartedEventId :: Integer , _attoeaTimeoutType :: ActivityTaskTimeoutType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ActivityTaskTimedOutEventAttributes' constructor. -- @@ -4288,7 +4288,7 @@ { _rcatfeaActivityId :: Text , _rcatfeaCause :: RequestCancelActivityTaskFailedCause , _rcatfeaDecisionTaskCompletedEventId :: Integer - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'RequestCancelActivityTaskFailedEventAttributes' constructor. -- @@ -4347,7 +4347,7 @@ newtype CompleteWorkflowExecutionDecisionAttributes = CompleteWorkflowExecutionDecisionAttributes { _cwedaResult :: Maybe Text - } deriving (Eq, Ord, Show, Monoid) + } deriving (Eq, Ord, Read, Show, Monoid) -- | 'CompleteWorkflowExecutionDecisionAttributes' constructor. -- @@ -4377,7 +4377,7 @@ data DecisionTaskStartedEventAttributes = DecisionTaskStartedEventAttributes { _dtseaIdentity :: Maybe Text , _dtseaScheduledEventId :: Integer - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DecisionTaskStartedEventAttributes' constructor. -- @@ -4423,7 +4423,7 @@ , _cwetoeaTimeoutType :: WorkflowExecutionTimeoutType , _cwetoeaWorkflowExecution :: WorkflowExecution , _cwetoeaWorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ChildWorkflowExecutionTimedOutEventAttributes' constructor. -- @@ -4512,7 +4512,7 @@ , _scweieaTaskStartToCloseTimeout :: Maybe Text , _scweieaWorkflowId :: Text , _scweieaWorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'StartChildWorkflowExecutionInitiatedEventAttributes' constructor. -- @@ -4675,7 +4675,7 @@ data CancelWorkflowExecutionFailedEventAttributes = CancelWorkflowExecutionFailedEventAttributes { _cwefea1Cause :: CancelWorkflowExecutionFailedCause , _cwefea1DecisionTaskCompletedEventId :: Integer - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'CancelWorkflowExecutionFailedEventAttributes' constructor. -- @@ -4726,7 +4726,7 @@ , _weteaChildPolicy :: ChildPolicy , _weteaDetails :: Maybe Text , _weteaReason :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'WorkflowExecutionTerminatedEventAttributes' constructor. -- @@ -4792,7 +4792,7 @@ newtype TaskList = TaskList { _tlName :: Text - } deriving (Eq, Ord, Show, Monoid, IsString) + } deriving (Eq, Ord, Read, Show, Monoid, IsString) -- | 'TaskList' constructor. -- @@ -4831,7 +4831,7 @@ | SATFCDefaultTaskListUndefined -- ^ DEFAULT_TASK_LIST_UNDEFINED | SATFCOpenActivitiesLimitExceeded -- ^ OPEN_ACTIVITIES_LIMIT_EXCEEDED | SATFCOperationNotPermitted -- ^ OPERATION_NOT_PERMITTED - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable ScheduleActivityTaskFailedCause @@ -4881,7 +4881,7 @@ , _cwecea1StartedEventId :: Integer , _cwecea1WorkflowExecution :: WorkflowExecution , _cwecea1WorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ChildWorkflowExecutionCanceledEventAttributes' constructor. -- @@ -4966,7 +4966,7 @@ , _weiStartTimestamp :: POSIX , _weiTagList :: List "tagList" Text , _weiWorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'WorkflowExecutionInfo' constructor. -- @@ -5095,7 +5095,7 @@ , _sewefeaInitiatedEventId :: Integer , _sewefeaRunId :: Maybe Text , _sewefeaWorkflowId :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'SignalExternalWorkflowExecutionFailedEventAttributes' constructor. -- @@ -5187,7 +5187,7 @@ newtype TagFilter = TagFilter { _tfTag :: Text - } deriving (Eq, Ord, Show, Monoid, IsString) + } deriving (Eq, Ord, Read, Show, Monoid, IsString) -- | 'TagFilter' constructor. -- @@ -5219,7 +5219,7 @@ = Abandon -- ^ ABANDON | RequestCancel -- ^ REQUEST_CANCEL | Terminate -- ^ TERMINATE - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable ChildPolicy @@ -5250,7 +5250,7 @@ data ActivityTaskStartedEventAttributes = ActivityTaskStartedEventAttributes { _atseaIdentity :: Maybe Text , _atseaScheduledEventId :: Integer - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'ActivityTaskStartedEventAttributes' constructor. -- @@ -5297,7 +5297,7 @@ | CSFailed -- ^ FAILED | CSTerminated -- ^ TERMINATED | CSTimedOut -- ^ TIMED_OUT - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable CloseStatus @@ -5334,7 +5334,7 @@ data CompleteWorkflowExecutionFailedCause = CompleteWorkflowExecutionFailedCauseOperationNotPermitted -- ^ OPERATION_NOT_PERMITTED | CompleteWorkflowExecutionFailedCauseUnhandledDecision -- ^ UNHANDLED_DECISION - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable CompleteWorkflowExecutionFailedCause @@ -5365,7 +5365,7 @@ | STFCOperationNotPermitted -- ^ OPERATION_NOT_PERMITTED | STFCTimerCreationRateExceeded -- ^ TIMER_CREATION_RATE_EXCEEDED | STFCTimerIdAlreadyInUse -- ^ TIMER_ID_ALREADY_IN_USE - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable StartTimerFailedCause @@ -5398,7 +5398,7 @@ data ActivityTaskCancelRequestedEventAttributes = ActivityTaskCancelRequestedEventAttributes { _atcreaActivityId :: Text , _atcreaDecisionTaskCompletedEventId :: Integer - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'ActivityTaskCancelRequestedEventAttributes' constructor. -- @@ -5443,7 +5443,7 @@ data WorkflowExecutionTimedOutEventAttributes = WorkflowExecutionTimedOutEventAttributes { _wetoeaChildPolicy :: ChildPolicy , _wetoeaTimeoutType :: WorkflowExecutionTimeoutType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'WorkflowExecutionTimedOutEventAttributes' constructor. -- @@ -5494,7 +5494,7 @@ , _cweteaStartedEventId :: Integer , _cweteaWorkflowExecution :: WorkflowExecution , _cweteaWorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ChildWorkflowExecutionTerminatedEventAttributes' constructor. -- @@ -5562,7 +5562,7 @@ data WorkflowExecutionCanceledEventAttributes = WorkflowExecutionCanceledEventAttributes { _wecea1DecisionTaskCompletedEventId :: Integer , _wecea1Details :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'WorkflowExecutionCanceledEventAttributes' constructor. -- @@ -5608,7 +5608,7 @@ , _wesea1ExternalWorkflowExecution :: Maybe WorkflowExecution , _wesea1Input :: Maybe Text , _wesea1SignalName :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'WorkflowExecutionSignaledEventAttributes' constructor. -- @@ -5676,7 +5676,7 @@ data RecordMarkerFailedCause = RMFCOperationNotPermitted -- ^ OPERATION_NOT_PERMITTED - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable RecordMarkerFailedCause @@ -5702,7 +5702,7 @@ data RegistrationStatus = Deprecated -- ^ DEPRECATED | Registered -- ^ REGISTERED - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable RegistrationStatus @@ -5733,7 +5733,7 @@ , _tseaDecisionTaskCompletedEventId :: Integer , _tseaStartToFireTimeout :: Text , _tseaTimerId :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'TimerStartedEventAttributes' constructor. -- @@ -5800,7 +5800,7 @@ newtype RequestCancelActivityTaskDecisionAttributes = RequestCancelActivityTaskDecisionAttributes { _rcatdaActivityId :: Text - } deriving (Eq, Ord, Show, Monoid, IsString) + } deriving (Eq, Ord, Read, Show, Monoid, IsString) -- | 'RequestCancelActivityTaskDecisionAttributes' constructor. -- @@ -5841,7 +5841,7 @@ , _dSignalExternalWorkflowExecutionDecisionAttributes :: Maybe SignalExternalWorkflowExecutionDecisionAttributes , _dStartChildWorkflowExecutionDecisionAttributes :: Maybe StartChildWorkflowExecutionDecisionAttributes , _dStartTimerDecisionAttributes :: Maybe StartTimerDecisionAttributes - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'Decision' constructor. -- @@ -6015,7 +6015,7 @@ data TimerFiredEventAttributes = TimerFiredEventAttributes { _tfeaStartedEventId :: Integer , _tfeaTimerId :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'TimerFiredEventAttributes' constructor. -- @@ -6057,7 +6057,7 @@ newtype DomainConfiguration = DomainConfiguration { _dcWorkflowExecutionRetentionPeriodInDays :: Text - } deriving (Eq, Ord, Show, Monoid, IsString) + } deriving (Eq, Ord, Read, Show, Monoid, IsString) -- | 'DomainConfiguration' constructor. -- @@ -6089,7 +6089,7 @@ data ExternalWorkflowExecutionSignaledEventAttributes = ExternalWorkflowExecutionSignaledEventAttributes { _eweseaInitiatedEventId :: Integer , _eweseaWorkflowExecution :: WorkflowExecution - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ExternalWorkflowExecutionSignaledEventAttributes' constructor. -- @@ -6133,7 +6133,7 @@ newtype CancelWorkflowExecutionDecisionAttributes = CancelWorkflowExecutionDecisionAttributes { _cwedaDetails :: Maybe Text - } deriving (Eq, Ord, Show, Monoid) + } deriving (Eq, Ord, Read, Show, Monoid) -- | 'CancelWorkflowExecutionDecisionAttributes' constructor. -- @@ -6164,7 +6164,7 @@ , _atfeaReason :: Maybe Text , _atfeaScheduledEventId :: Integer , _atfeaStartedEventId :: Integer - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'ActivityTaskFailedEventAttributes' constructor. -- @@ -6228,7 +6228,7 @@ data FailWorkflowExecutionFailedEventAttributes = FailWorkflowExecutionFailedEventAttributes { _fwefeaCause :: FailWorkflowExecutionFailedCause , _fwefeaDecisionTaskCompletedEventId :: Integer - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'FailWorkflowExecutionFailedEventAttributes' constructor. -- @@ -6281,7 +6281,7 @@ , _scwefeaInitiatedEventId :: Integer , _scwefeaWorkflowId :: Text , _scwefeaWorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'StartChildWorkflowExecutionFailedEventAttributes' constructor. -- @@ -6374,7 +6374,7 @@ data WorkflowTypeFilter = WorkflowTypeFilter { _wtfName :: Text , _wtfVersion :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'WorkflowTypeFilter' constructor. -- @@ -6413,7 +6413,7 @@ data CancelTimerFailedCause = CTFCOperationNotPermitted -- ^ OPERATION_NOT_PERMITTED | CTFCTimerIdUnknown -- ^ TIMER_ID_UNKNOWN - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable CancelTimerFailedCause @@ -6443,7 +6443,7 @@ { _dtceaExecutionContext :: Maybe Text , _dtceaScheduledEventId :: Integer , _dtceaStartedEventId :: Integer - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'DecisionTaskCompletedEventAttributes' constructor. -- @@ -6503,7 +6503,7 @@ , _cwefeaStartedEventId :: Integer , _cwefeaWorkflowExecution :: WorkflowExecution , _cwefeaWorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ChildWorkflowExecutionFailedEventAttributes' constructor. -- @@ -6590,7 +6590,7 @@ { _diDescription :: Maybe Text , _diName :: Text , _diStatus :: RegistrationStatus - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'DomainInfo' constructor. -- @@ -6692,7 +6692,7 @@ , _heWorkflowExecutionStartedEventAttributes :: Maybe WorkflowExecutionStartedEventAttributes , _heWorkflowExecutionTerminatedEventAttributes :: Maybe WorkflowExecutionTerminatedEventAttributes , _heWorkflowExecutionTimedOutEventAttributes :: Maybe WorkflowExecutionTimedOutEventAttributes - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'HistoryEvent' constructor. -- @@ -7349,7 +7349,7 @@ data ContinueAsNewWorkflowExecutionFailedEventAttributes = ContinueAsNewWorkflowExecutionFailedEventAttributes { _canwefeaCause :: ContinueAsNewWorkflowExecutionFailedCause , _canwefeaDecisionTaskCompletedEventId :: Integer - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ContinueAsNewWorkflowExecutionFailedEventAttributes' constructor. -- @@ -7402,7 +7402,7 @@ , _seweieaRunId :: Maybe Text , _seweieaSignalName :: Text , _seweieaWorkflowId :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'SignalExternalWorkflowExecutionInitiatedEventAttributes' constructor. -- @@ -7486,7 +7486,7 @@ newtype CancelTimerDecisionAttributes = CancelTimerDecisionAttributes { _ctdaTimerId :: Text - } deriving (Eq, Ord, Show, Monoid, IsString) + } deriving (Eq, Ord, Read, Show, Monoid, IsString) -- | 'CancelTimerDecisionAttributes' constructor. -- @@ -7517,7 +7517,7 @@ { _wefeaDecisionTaskCompletedEventId :: Integer , _wefeaDetails :: Maybe Text , _wefeaReason :: Maybe Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'WorkflowExecutionFailedEventAttributes' constructor. -- @@ -7573,7 +7573,7 @@ , _wecTaskList :: TaskList , _wecTaskPriority :: Maybe Text , _wecTaskStartToCloseTimeout :: Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'WorkflowExecutionConfiguration' constructor. -- @@ -7666,7 +7666,7 @@ data WorkflowExecution = WorkflowExecution { _weRunId :: Text , _weWorkflowId :: Text - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'WorkflowExecution' constructor. -- @@ -7707,7 +7707,7 @@ = RCEWEFCOperationNotPermitted -- ^ OPERATION_NOT_PERMITTED | RCEWEFCRequestCancelExternalWorkflowExecutionRateExceeded -- ^ REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION_RATE_EXCEEDED | RCEWEFCUnknownExternalWorkflowExecution -- ^ UNKNOWN_EXTERNAL_WORKFLOW_EXECUTION - deriving (Eq, Ord, Show, Generic, Enum) + deriving (Eq, Ord, Read, Show, Generic, Enum) instance Hashable RequestCancelExternalWorkflowExecutionFailedCause @@ -7744,7 +7744,7 @@ , _canwedaTaskPriority :: Maybe Text , _canwedaTaskStartToCloseTimeout :: Maybe Text , _canwedaWorkflowTypeVersion :: Maybe Text - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ContinueAsNewWorkflowExecutionDecisionAttributes' constructor. -- @@ -7885,7 +7885,7 @@ data ExternalWorkflowExecutionCancelRequestedEventAttributes = ExternalWorkflowExecutionCancelRequestedEventAttributes { _ewecreaInitiatedEventId :: Integer , _ewecreaWorkflowExecution :: WorkflowExecution - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'ExternalWorkflowExecutionCancelRequestedEventAttributes' constructor. -- @@ -7933,7 +7933,7 @@ data PendingTaskCount = PendingTaskCount { _ptcCount :: Nat , _ptcTruncated :: Maybe Bool - } deriving (Eq, Ord, Show) + } deriving (Eq, Ord, Read, Show) -- | 'PendingTaskCount' constructor. -- @@ -7981,7 +7981,7 @@ , _wecaneaTaskPriority :: Maybe Text , _wecaneaTaskStartToCloseTimeout :: Maybe Text , _wecaneaWorkflowType :: WorkflowType - } deriving (Eq, Show) + } deriving (Eq, Read, Show) -- | 'WorkflowExecutionContinuedAsNewEventAttributes' constructor. --