authId <- lift $ requireAuthId