-- | Whether the first 'Stage' may transition to the second in the lifecycle.
-- Unexpected transitions are treated as scheduler errors
-- ('BadSchedulerTransition').
isExpectedTransition :: Stage -> Stage -> Bool
isExpectedTransition (Queued SentToScheduler) (Queued SchedulerQueue) = True
isExpectedTransition :: Stage -> Stage -> Bool
isExpectedTransition (Queued SentToScheduler) (Queued SchedulerQueue) = True
isExpectedTransition (Queued SentToScheduler) (Queued SchedulerQueue) = True