jobsProgressingOnScheduler :: AppState -> [Job.Status]
jobsProgressingOnScheduler = (^.. jobs . filtered (p . (^. Job.stage)))
  where
    p = (&&) <$> sentToScheduler <*> isActiveStage

-- | Update the status of a set of jobs with new data from the scheduler,
-- scheduling any new actions required (eg. dependencies).
jobsProgressingOnScheduler :: AppState -> [Job.Status]
jobsProgressingOnScheduler = (^.. jobs . filtered (p . (^. Job.stage)))
  where
    p = (&&) <$> sentToScheduler <*> isActiveStage

-- | Update the status of a set of jobs with new data from the scheduler,
-- scheduling any new actions required (eg. dependencies).
jobsProgressingOnScheduler = (^.. jobs . filtered (p . (^. Job.stage)))
  where
    p = (&&) <$> sentToScheduler <*> isActiveStage

-- | Update the status of a set of jobs with new data from the scheduler,
-- scheduling any new actions required (eg. dependencies).