createContainer :: (TS m, MonadError JobError m) => Job.ContainerId -> UUID -> m ()
createContainer name uuid = do
    flip when (throwError NameUsed) . has _Just =<< ES.containerUUID name
    ES.insertContainer name uuid
createContainer :: (TS m, MonadError JobError m) => Job.ContainerId -> UUID -> m ()
createContainer name uuid = do
    flip when (throwError NameUsed) . has _Just =<< ES.containerUUID name
    ES.insertContainer name uuid
createContainer name uuid = do
    flip when (throwError NameUsed) . has _Just =<< ES.containerUUID name
    ES.insertContainer name uuid