Safe Haskell	Safe-Inferred
Language	GHC2021

Wire.InvitationStore

Synopsis

data StoredInvitation = MkStoredInvitation {
- teamId :: TeamId
- role :: Maybe Role
- invitationId :: InvitationId
- createdAt :: UTCTimeMillis
- createdBy :: Maybe UserId
- email :: EmailAddress
- name :: Maybe Name
- code :: InvitationCode
}
data InsertInvitation = MkInsertInvitation {
- invitationId :: InvitationId
- teamId :: TeamId
- role :: Role
- createdAt :: UTCTime
- createdBy :: Maybe UserId
- inviteeEmail :: EmailAddress
- inviteeName :: Maybe Name
- code :: InvitationCode
}
data PaginatedResult a
- = PaginatedResultHasMore a
- | PaginatedResult a
data InvitationStore :: Effect where
- InsertInvitation :: InsertInvitation -> Timeout -> InvitationStore m StoredInvitation
- LookupInvitation :: TeamId -> InvitationId -> InvitationStore m (Maybe StoredInvitation)
- LookupInvitationByCode :: InvitationCode -> InvitationStore m (Maybe StoredInvitation)
- LookupInvitationsByEmail :: EmailAddress -> InvitationStore m [StoredInvitation]
- LookupInvitationsPaginated :: Maybe (Range 1 500 Int32) -> TeamId -> Maybe InvitationId -> InvitationStore m (PaginatedResult [StoredInvitation])
- CountInvitations :: TeamId -> InvitationStore m Int64
- DeleteInvitation :: TeamId -> InvitationId -> InvitationStore m ()
- DeleteAllTeamInvitations :: TeamId -> InvitationStore m ()
deleteAllTeamInvitations :: forall r. Member InvitationStore r => TeamId -> Sem r ()
deleteInvitation :: forall r. Member InvitationStore r => TeamId -> InvitationId -> Sem r ()
countInvitations :: forall r. Member InvitationStore r => TeamId -> Sem r Int64
lookupInvitationsPaginated :: forall r. Member InvitationStore r => Maybe (Range 1 500 Int32) -> TeamId -> Maybe InvitationId -> Sem r (PaginatedResult [StoredInvitation])
lookupInvitationsByEmail :: forall r. Member InvitationStore r => EmailAddress -> Sem r [StoredInvitation]
lookupInvitationByCode :: forall r. Member InvitationStore r => InvitationCode -> Sem r (Maybe StoredInvitation)
lookupInvitation :: forall r. Member InvitationStore r => TeamId -> InvitationId -> Sem r (Maybe StoredInvitation)
insertInvitation :: forall r. Member InvitationStore r => InsertInvitation -> Timeout -> Sem r StoredInvitation
invitationFromStored :: Maybe (URIRef Absolute) -> StoredInvitation -> Invitation

Documentation

data StoredInvitation Source #

Constructors

MkStoredInvitation
Fields teamId :: TeamId role :: Maybe Role invitationId :: InvitationId createdAt :: UTCTimeMillis createdBy :: Maybe UserId email :: EmailAddress name :: Maybe Name code :: InvitationCode

Instances

Instances details

Arbitrary StoredInvitation Source #
Instance details Defined in Wire.InvitationStore Methods arbitrary :: Gen StoredInvitation Source # shrink :: StoredInvitation -> [StoredInvitation] Source #
Generic StoredInvitation Source #
Instance details Defined in Wire.InvitationStore Associated Types type Rep StoredInvitation :: Type -> Type # Methods from :: StoredInvitation -> Rep StoredInvitation x # to :: Rep StoredInvitation x -> StoredInvitation #
Show StoredInvitation Source #
Instance details Defined in Wire.InvitationStore Methods showsPrec :: Int -> StoredInvitation -> ShowS # show :: StoredInvitation -> String # showList :: [StoredInvitation] -> ShowS #
Record StoredInvitation Source #
Instance details Defined in Wire.InvitationStore Methods asTuple :: StoredInvitation -> TupleType StoredInvitation Source # asRecord :: TupleType StoredInvitation -> StoredInvitation Source #
Eq StoredInvitation Source #
Instance details Defined in Wire.InvitationStore Methods (==) :: StoredInvitation -> StoredInvitation -> Bool # (/=) :: StoredInvitation -> StoredInvitation -> Bool #
type Rep StoredInvitation Source #
Instance details Defined in Wire.InvitationStore type Rep StoredInvitation = D1 ('MetaData "StoredInvitation" "Wire.InvitationStore" "wire-subsystems-0.1.0-8kLXA8DL8T7Joz69IIRPwJ" 'False) (C1 ('MetaCons "MkStoredInvitation" 'PrefixI 'True) (((S1 ('MetaSel ('Just "teamId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 TeamId) :: S1 ('MetaSel ('Just "role") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe Role))) :: (S1 ('MetaSel ('Just "invitationId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 InvitationId) :: S1 ('MetaSel ('Just "createdAt") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 UTCTimeMillis))) :: ((S1 ('MetaSel ('Just "createdBy") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe UserId)) :: S1 ('MetaSel ('Just "email") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 EmailAddress)) :: (S1 ('MetaSel ('Just "name") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe Name)) :*: S1 ('MetaSel ('Just "code") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 InvitationCode)))))
type TupleType StoredInvitation Source #
Instance details Defined in Wire.InvitationStore type TupleType StoredInvitation = (TeamId, Maybe Role, InvitationId, UTCTimeMillis, Maybe UserId, EmailAddress, Maybe Name, InvitationCode)

data InsertInvitation Source #

Constructors

MkInsertInvitation
Fields invitationId :: InvitationId teamId :: TeamId role :: Role createdAt :: UTCTime createdBy :: Maybe UserId inviteeEmail :: EmailAddress inviteeName :: Maybe Name code :: InvitationCode

Instances

Instances details

Generic InsertInvitation Source #
Instance details Defined in Wire.InvitationStore Associated Types type Rep InsertInvitation :: Type -> Type # Methods from :: InsertInvitation -> Rep InsertInvitation x # to :: Rep InsertInvitation x -> InsertInvitation #
Show InsertInvitation Source #
Instance details Defined in Wire.InvitationStore Methods showsPrec :: Int -> InsertInvitation -> ShowS # show :: InsertInvitation -> String # showList :: [InsertInvitation] -> ShowS #
Record InsertInvitation Source #
Instance details Defined in Wire.InvitationStore Methods asTuple :: InsertInvitation -> TupleType InsertInvitation Source # asRecord :: TupleType InsertInvitation -> InsertInvitation Source #
Eq InsertInvitation Source #
Instance details Defined in Wire.InvitationStore Methods (==) :: InsertInvitation -> InsertInvitation -> Bool # (/=) :: InsertInvitation -> InsertInvitation -> Bool #
type Rep InsertInvitation Source #
Instance details Defined in Wire.InvitationStore type Rep InsertInvitation = D1 ('MetaData "InsertInvitation" "Wire.InvitationStore" "wire-subsystems-0.1.0-8kLXA8DL8T7Joz69IIRPwJ" 'False) (C1 ('MetaCons "MkInsertInvitation" 'PrefixI 'True) (((S1 ('MetaSel ('Just "invitationId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 InvitationId) :: S1 ('MetaSel ('Just "teamId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 TeamId)) :: (S1 ('MetaSel ('Just "role") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 Role) :: S1 ('MetaSel ('Just "createdAt") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 UTCTime))) :: ((S1 ('MetaSel ('Just "createdBy") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe UserId)) :: S1 ('MetaSel ('Just "inviteeEmail") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 EmailAddress)) :: (S1 ('MetaSel ('Just "inviteeName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 (Maybe Name)) :*: S1 ('MetaSel ('Just "code") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedStrict) (Rec0 InvitationCode)))))
type TupleType InsertInvitation Source #
Instance details Defined in Wire.InvitationStore type TupleType InsertInvitation = (InvitationId, TeamId, Role, UTCTime, Maybe UserId, EmailAddress, Maybe Name, InvitationCode)

data PaginatedResult a Source #

Constructors

PaginatedResultHasMore a
PaginatedResult a

Instances

Instances details

Foldable PaginatedResult Source #
Instance details Defined in Wire.InvitationStore Methods fold :: Monoid m => PaginatedResult m -> m # foldMap :: Monoid m => (a -> m) -> PaginatedResult a -> m # foldMap' :: Monoid m => (a -> m) -> PaginatedResult a -> m # foldr :: (a -> b -> b) -> b -> PaginatedResult a -> b # foldr' :: (a -> b -> b) -> b -> PaginatedResult a -> b # foldl :: (b -> a -> b) -> b -> PaginatedResult a -> b # foldl' :: (b -> a -> b) -> b -> PaginatedResult a -> b # foldr1 :: (a -> a -> a) -> PaginatedResult a -> a # foldl1 :: (a -> a -> a) -> PaginatedResult a -> a # toList :: PaginatedResult a -> [a] # null :: PaginatedResult a -> Bool # length :: PaginatedResult a -> Int # elem :: Eq a => a -> PaginatedResult a -> Bool # maximum :: Ord a => PaginatedResult a -> a # minimum :: Ord a => PaginatedResult a -> a # sum :: Num a => PaginatedResult a -> a # product :: Num a => PaginatedResult a -> a #
Functor PaginatedResult Source #
Instance details Defined in Wire.InvitationStore Methods fmap :: (a -> b) -> PaginatedResult a -> PaginatedResult b # (<$) :: a -> PaginatedResult b -> PaginatedResult a #
Show a => Show (PaginatedResult a) Source #
Instance details Defined in Wire.InvitationStore Methods showsPrec :: Int -> PaginatedResult a -> ShowS # show :: PaginatedResult a -> String # showList :: [PaginatedResult a] -> ShowS #
Eq a => Eq (PaginatedResult a) Source #
Instance details Defined in Wire.InvitationStore Methods (==) :: PaginatedResult a -> PaginatedResult a -> Bool # (/=) :: PaginatedResult a -> PaginatedResult a -> Bool #
Ord a => Ord (PaginatedResult a) Source #
Instance details Defined in Wire.InvitationStore Methods compare :: PaginatedResult a -> PaginatedResult a -> Ordering # (<) :: PaginatedResult a -> PaginatedResult a -> Bool # (<=) :: PaginatedResult a -> PaginatedResult a -> Bool # (>) :: PaginatedResult a -> PaginatedResult a -> Bool # (>=) :: PaginatedResult a -> PaginatedResult a -> Bool # max :: PaginatedResult a -> PaginatedResult a -> PaginatedResult a # min :: PaginatedResult a -> PaginatedResult a -> PaginatedResult a #

data InvitationStore :: Effect where Source #

Constructors

InsertInvitation :: InsertInvitation -> Timeout -> InvitationStore m StoredInvitation
LookupInvitation :: TeamId -> InvitationId -> InvitationStore m (Maybe StoredInvitation)
LookupInvitationByCode :: InvitationCode -> InvitationStore m (Maybe StoredInvitation)
LookupInvitationsByEmail :: EmailAddress -> InvitationStore m [StoredInvitation]
LookupInvitationsPaginated :: Maybe (Range 1 500 Int32) -> TeamId -> Maybe InvitationId -> InvitationStore m (PaginatedResult [StoredInvitation])	Range is page size, it defaults to 100
CountInvitations :: TeamId -> InvitationStore m Int64
DeleteInvitation :: TeamId -> InvitationId -> InvitationStore m ()
DeleteAllTeamInvitations :: TeamId -> InvitationStore m ()

deleteAllTeamInvitations :: forall r. Member InvitationStore r => TeamId -> Sem r () Source #

deleteInvitation :: forall r. Member InvitationStore r => TeamId -> InvitationId -> Sem r () Source #

countInvitations :: forall r. Member InvitationStore r => TeamId -> Sem r Int64 Source #

lookupInvitationsPaginated :: forall r. Member InvitationStore r => Maybe (Range 1 500 Int32) -> TeamId -> Maybe InvitationId -> Sem r (PaginatedResult [StoredInvitation]) Source #

Range is page size, it defaults to 100

lookupInvitationsByEmail :: forall r. Member InvitationStore r => EmailAddress -> Sem r [StoredInvitation] Source #

lookupInvitationByCode :: forall r. Member InvitationStore r => InvitationCode -> Sem r (Maybe StoredInvitation) Source #

lookupInvitation :: forall r. Member InvitationStore r => TeamId -> InvitationId -> Sem r (Maybe StoredInvitation) Source #

insertInvitation :: forall r. Member InvitationStore r => InsertInvitation -> Timeout -> Sem r StoredInvitation Source #

invitationFromStored :: Maybe (URIRef Absolute) -> StoredInvitation -> Invitation Source #