existing :: (TS m, MonadError JobError m) => Traversal' Job.AnyStatus a -> Job.Name -> m a
existing p name = maybe (throwError NoSuch) pure =<< ES.getEntity p name
existing :: (TS m, MonadError JobError m) => Traversal' Job.AnyStatus a -> Job.Name -> m a
existing p name = maybe (throwError NoSuch) pure =<< ES.getEntity p name
existing p name = maybe (throwError NoSuch) pure =<< ES.getEntity p name