{-# LANGUAGE ConstraintKinds #-} {-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE TypeFamilies #-} module Temporal.Workflow.WorkflowInstance where import qualified Proto.Temporal.Sdk.Core.WorkflowCommands.WorkflowCommands as Command import Temporal.Workflow.Types activityCancellationTypeToProto :: ActivityCancellationType -> Command.ActivityCancellationType activityCancellationTypeToProto :: ActivityCancellationType -> ActivityCancellationType activityCancellationTypeToProto ActivityCancellationType ActivityCancellationTryCancel = ActivityCancellationType Command.TRY_CANCEL activityCancellationTypeToProto ActivityCancellationType ActivityCancellationWaitCancellationCompleted = ActivityCancellationType Command.WAIT_CANCELLATION_COMPLETED activityCancellationTypeToProto ActivityCancellationType ActivityCancellationAbandon = ActivityCancellationType Command.ABANDON