nextSecretId :: Monad m => BuilderT g m SecretId
nextSecretId = do
    id <- use bs_next_secret
    bs_next_secret += 1
    return id
nextSecretId :: Monad m => BuilderT g m SecretId
nextSecretId = do
    id <- use bs_next_secret
    bs_next_secret += 1
    return id
nextSecretId = do
    id <- use bs_next_secret
    bs_next_secret += 1
    return id