Safe Haskell | Safe-Inferred |
---|---|
Language | GHC2021 |
Synopsis
- data TeamStore m a where
- CreateTeamMember :: TeamId -> TeamMember -> TeamStore m ()
- SetTeamMemberPermissions :: Permissions -> TeamId -> UserId -> Permissions -> TeamStore m ()
- CreateTeam :: Maybe TeamId -> UserId -> Range 1 256 Text -> Icon -> Maybe (Range 1 256 Text) -> TeamBinding -> TeamStore m Team
- DeleteTeamMember :: TeamId -> UserId -> TeamStore m ()
- GetBillingTeamMembers :: TeamId -> TeamStore m [UserId]
- GetTeamAdmins :: TeamId -> TeamStore m [UserId]
- GetTeam :: TeamId -> TeamStore m (Maybe TeamData)
- GetTeamName :: TeamId -> TeamStore m (Maybe Text)
- GetTeamConversation :: TeamId -> ConvId -> TeamStore m (Maybe TeamConversation)
- GetTeamConversations :: TeamId -> TeamStore m [TeamConversation]
- SelectTeams :: UserId -> [TeamId] -> TeamStore m [TeamId]
- GetTeamMember :: TeamId -> UserId -> TeamStore m (Maybe TeamMember)
- GetTeamMembersWithLimit :: TeamId -> Range 1 HardTruncationLimit Int32 -> TeamStore m TeamMemberList
- GetTeamMembers :: TeamId -> TeamStore m [TeamMember]
- SelectTeamMembers :: TeamId -> [UserId] -> TeamStore m [TeamMember]
- SelectTeamMembersPaginated :: TeamId -> [UserId] -> Maybe (PagingState CassandraPaging TeamMember) -> PagingBounds CassandraPaging TeamMember -> TeamStore m (Page CassandraPaging TeamMember)
- GetUserTeams :: UserId -> TeamStore m [TeamId]
- GetUsersTeams :: [UserId] -> TeamStore m (Map UserId TeamId)
- GetOneUserTeam :: UserId -> TeamStore m (Maybe TeamId)
- GetTeamsBindings :: [TeamId] -> TeamStore m [TeamBinding]
- GetTeamBinding :: TeamId -> TeamStore m (Maybe TeamBinding)
- GetTeamCreationTime :: TeamId -> TeamStore m (Maybe TeamCreationTime)
- DeleteTeam :: TeamId -> TeamStore m ()
- DeleteTeamConversation :: TeamId -> ConvId -> TeamStore m ()
- SetTeamData :: TeamId -> TeamUpdateData -> TeamStore m ()
- SetTeamStatus :: TeamId -> TeamStatus -> TeamStore m ()
- FanoutLimit :: TeamStore m (Range 1 HardTruncationLimit Int32)
- GetLegalHoldFlag :: TeamStore m (FeatureDefaults LegalholdConfig)
- EnqueueTeamEvent :: TeamEvent -> TeamStore m ()
- createTeam :: forall r. Member TeamStore r => Maybe TeamId -> UserId -> Range 1 256 Text -> Icon -> Maybe (Range 1 256 Text) -> TeamBinding -> Sem r Team
- getTeam :: forall r. Member TeamStore r => TeamId -> Sem r (Maybe TeamData)
- getTeamName :: forall r. Member TeamStore r => TeamId -> Sem r (Maybe Text)
- getTeamBinding :: forall r. Member TeamStore r => TeamId -> Sem r (Maybe TeamBinding)
- getTeamsBindings :: forall r. Member TeamStore r => [TeamId] -> Sem r [TeamBinding]
- getTeamConversation :: forall r. Member TeamStore r => TeamId -> ConvId -> Sem r (Maybe TeamConversation)
- getTeamConversations :: forall r. Member TeamStore r => TeamId -> Sem r [TeamConversation]
- getTeamCreationTime :: forall r. Member TeamStore r => TeamId -> Sem r (Maybe TeamCreationTime)
- listTeams :: Member (ListItems p TeamId) r => UserId -> Maybe (PagingState p TeamId) -> PagingBounds p TeamId -> Sem r (Page p TeamId)
- selectTeams :: forall r. Member TeamStore r => UserId -> [TeamId] -> Sem r [TeamId]
- getUserTeams :: forall r. Member TeamStore r => UserId -> Sem r [TeamId]
- getUsersTeams :: forall r. Member TeamStore r => [UserId] -> Sem r (Map UserId TeamId)
- getOneUserTeam :: forall r. Member TeamStore r => UserId -> Sem r (Maybe TeamId)
- lookupBindingTeam :: (Member (ErrorS 'TeamNotFound) r, Member (ErrorS 'NonBindingTeam) r, Member TeamStore r) => UserId -> Sem r TeamId
- deleteTeamConversation :: forall r. Member TeamStore r => TeamId -> ConvId -> Sem r ()
- setTeamData :: forall r. Member TeamStore r => TeamId -> TeamUpdateData -> Sem r ()
- setTeamStatus :: forall r. Member TeamStore r => TeamId -> TeamStatus -> Sem r ()
- deleteTeam :: forall r. Member TeamStore r => TeamId -> Sem r ()
- createTeamMember :: forall r. Member TeamStore r => TeamId -> TeamMember -> Sem r ()
- getTeamMember :: forall r. Member TeamStore r => TeamId -> UserId -> Sem r (Maybe TeamMember)
- getTeamMembersWithLimit :: forall r. Member TeamStore r => TeamId -> Range 1 HardTruncationLimit Int32 -> Sem r TeamMemberList
- getTeamMembers :: forall r. Member TeamStore r => TeamId -> Sem r [TeamMember]
- getBillingTeamMembers :: forall r. Member TeamStore r => TeamId -> Sem r [UserId]
- getTeamAdmins :: forall r. Member TeamStore r => TeamId -> Sem r [UserId]
- selectTeamMembers :: forall r. Member TeamStore r => TeamId -> [UserId] -> Sem r [TeamMember]
- selectTeamMembersPaginated :: forall r. Member TeamStore r => TeamId -> [UserId] -> Maybe (PagingState CassandraPaging TeamMember) -> PagingBounds CassandraPaging TeamMember -> Sem r (Page CassandraPaging TeamMember)
- setTeamMemberPermissions :: forall r. Member TeamStore r => Permissions -> TeamId -> UserId -> Permissions -> Sem r ()
- deleteTeamMember :: forall r. Member TeamStore r => TeamId -> UserId -> Sem r ()
- fanoutLimit :: forall r. Member TeamStore r => Sem r (Range 1 HardTruncationLimit Int32)
- getLegalHoldFlag :: forall r. Member TeamStore r => Sem r (FeatureDefaults LegalholdConfig)
- enqueueTeamEvent :: forall r. Member TeamStore r => TeamEvent -> Sem r ()
Team store effect
data TeamStore m a where Source #
Teams
Create teams
createTeam :: forall r. Member TeamStore r => Maybe TeamId -> UserId -> Range 1 256 Text -> Icon -> Maybe (Range 1 256 Text) -> TeamBinding -> Sem r Team Source #
Read teams
getTeamBinding :: forall r. Member TeamStore r => TeamId -> Sem r (Maybe TeamBinding) Source #
getTeamsBindings :: forall r. Member TeamStore r => [TeamId] -> Sem r [TeamBinding] Source #
getTeamConversation :: forall r. Member TeamStore r => TeamId -> ConvId -> Sem r (Maybe TeamConversation) Source #
getTeamConversations :: forall r. Member TeamStore r => TeamId -> Sem r [TeamConversation] Source #
getTeamCreationTime :: forall r. Member TeamStore r => TeamId -> Sem r (Maybe TeamCreationTime) Source #
listTeams :: Member (ListItems p TeamId) r => UserId -> Maybe (PagingState p TeamId) -> PagingBounds p TeamId -> Sem r (Page p TeamId) Source #
lookupBindingTeam :: (Member (ErrorS 'TeamNotFound) r, Member (ErrorS 'NonBindingTeam) r, Member TeamStore r) => UserId -> Sem r TeamId Source #
Update teams
setTeamData :: forall r. Member TeamStore r => TeamId -> TeamUpdateData -> Sem r () Source #
setTeamStatus :: forall r. Member TeamStore r => TeamId -> TeamStatus -> Sem r () Source #
Delete teams
Team Members
Create team members
createTeamMember :: forall r. Member TeamStore r => TeamId -> TeamMember -> Sem r () Source #
Read team members
getTeamMember :: forall r. Member TeamStore r => TeamId -> UserId -> Sem r (Maybe TeamMember) Source #
getTeamMembersWithLimit :: forall r. Member TeamStore r => TeamId -> Range 1 HardTruncationLimit Int32 -> Sem r TeamMemberList Source #
getTeamMembers :: forall r. Member TeamStore r => TeamId -> Sem r [TeamMember] Source #
selectTeamMembers :: forall r. Member TeamStore r => TeamId -> [UserId] -> Sem r [TeamMember] Source #
selectTeamMembersPaginated :: forall r. Member TeamStore r => TeamId -> [UserId] -> Maybe (PagingState CassandraPaging TeamMember) -> PagingBounds CassandraPaging TeamMember -> Sem r (Page CassandraPaging TeamMember) Source #
Update team members
setTeamMemberPermissions :: forall r. Member TeamStore r => Permissions -> TeamId -> UserId -> Permissions -> Sem r () Source #
Delete team members
Configuration
fanoutLimit :: forall r. Member TeamStore r => Sem r (Range 1 HardTruncationLimit Int32) Source #
getLegalHoldFlag :: forall r. Member TeamStore r => Sem r (FeatureDefaults LegalholdConfig) Source #