sealBox :: (TS m, MonadError JobError m) => Job.Name -> m ()
sealBox name = existing _ABox name >>= \bs -> when (has (Job.sealed . _Unsealed) bs) $ do
    ES.sealBox name
    withDependents (const $ triggerDep name) name
sealBox :: (TS m, MonadError JobError m) => Job.Name -> m ()
sealBox name = existing _ABox name >>= \bs -> when (has (Job.sealed . _Unsealed) bs) $ do
    ES.sealBox name
    withDependents (const $ triggerDep name) name
sealBox name = existing _ABox name >>= \bs -> when (has (Job.sealed . _Unsealed) bs) $ do
    ES.sealBox name
    withDependents (const $ triggerDep name) name