diff --git a/libs/wire-subsystems/src/Wire/TeamInvitationSubsystem/Interpreter.hs b/libs/wire-subsystems/src/Wire/TeamInvitationSubsystem/Interpreter.hs index cd559a89718..ca66cf1e20b 100644 --- a/libs/wire-subsystems/src/Wire/TeamInvitationSubsystem/Interpreter.hs +++ b/libs/wire-subsystems/src/Wire/TeamInvitationSubsystem/Interpreter.hs @@ -84,8 +84,8 @@ inviteUserImpl :: Sem r (Invitation, InvitationLocation) inviteUserImpl luid tid request = do let inviteeRole = fromMaybe defaultRole request.role - let inviteePerms = Teams.rolePermissions inviteeRole + let inviteePerms = Teams.rolePermissions inviteeRole ensurePermissionToAddUser (tUnqualified luid) tid inviteePerms inviterEmail <-