createBox :: (TS m, MonadError JobError m) => Job.BoxSpec -> m ()
createBox spec = do
    ensureNameUnused name
    ES.insertBox $ Job.mkBoxStatus name Job.Unsealed mempty
  where
    name = spec ^. Job.name
createBox :: (TS m, MonadError JobError m) => Job.BoxSpec -> m ()
createBox spec = do
    ensureNameUnused name
    ES.insertBox $ Job.mkBoxStatus name Job.Unsealed mempty
  where
    name = spec ^. Job.name
createBox spec = do
    ensureNameUnused name
    ES.insertBox $ Job.mkBoxStatus name Job.Unsealed mempty
  where
    name = spec ^. Job.name