deleteBox :: (TS m, MonadError JobError m) => Job.Name -> m ()
deleteBox name = existing _ABox name >>= \bs -> do
    ensureNoActiveDependents name
    ES.deleteBox name
    scheduleCleanupFiles bs
deleteBox :: (TS m, MonadError JobError m) => Job.Name -> m ()
deleteBox name = existing _ABox name >>= \bs -> do
    ensureNoActiveDependents name
    ES.deleteBox name
    scheduleCleanupFiles bs
deleteBox name = existing _ABox name >>= \bs -> do
    ensureNoActiveDependents name
    ES.deleteBox name
    scheduleCleanupFiles bs