ensureNameUnused :: (TS m, MonadError JobError m) => Job.Name -> m ()
ensureNameUnused n = mapM_ (const $ throwError NameUsed) =<< ES.getEntity id n
ensureNameUnused :: (TS m, MonadError JobError m) => Job.Name -> m ()
ensureNameUnused n = mapM_ (const $ throwError NameUsed) =<< ES.getEntity id n
ensureNameUnused n = mapM_ (const $ throwError NameUsed) =<< ES.getEntity id n