Safe Haskell	Safe-Inferred
Language	GHC2021

SetupHelpers

Synopsis

randomUser :: (HasCallStack, MakesValue domain) => domain -> CreateUser -> App Value
deleteUser :: (HasCallStack, MakesValue user) => user -> App ()
createTeam :: (HasCallStack, MakesValue domain) => domain -> Int -> App (Value, String, [Value])
data CreateTeamMember = CreateTeamMember {
- role :: String
}
createTeamMember :: (HasCallStack, MakesValue inviter) => inviter -> CreateTeamMember -> App Value
connectTwoUsers :: (HasCallStack, MakesValue alice, MakesValue bob) => alice -> bob -> App ()
connectUsers :: (HasCallStack, MakesValue usr) => [usr] -> App ()
assertConnection :: (HasCallStack, MakesValue alice, MakesValue bob) => alice -> bob -> String -> App ()
createAndConnectUsers :: (HasCallStack, MakesValue domain) => [domain] -> App [Value]
createUsers :: (HasCallStack, MakesValue domain) => [domain] -> App [Value]
getAllConvs :: (HasCallStack, MakesValue u) => u -> App [Value]
simpleMixedConversationSetup :: (HasCallStack, MakesValue domain) => domain -> App (Value, Value, ConvId)
supportMLS :: (HasCallStack, MakesValue u) => u -> App ()
addUserToTeam :: (HasCallStack, MakesValue u) => u -> App Value
createMLSOne2OnePartner :: (MakesValue user, MakesValue domain, MakesValue convDomain, HasCallStack) => domain -> user -> convDomain -> App Value
randomToken :: HasCallStack => App String
data TokenLength
- = GCM
- | APNS
randomSnsToken :: HasCallStack => TokenLength -> App String
randomId :: HasCallStack => App String
randomUUIDv1 :: HasCallStack => App String
randomUserId :: (HasCallStack, MakesValue domain) => domain -> App Value
withFederatingBackendsAllowDynamic :: HasCallStack => ((String, String, String) -> App a) -> App a
createOne2OneConversation :: (HasCallStack, MakesValue domain1, MakesValue domain2) => domain1 -> domain2 -> App (Value, Value, Value)
data One2OneConvState
- = Established
- | Connect
toConvType :: One2OneConvState -> Int
getOne2OneConversation :: HasCallStack => Value -> Value -> One2OneConvState -> App Value
setupProvider :: (HasCallStack, MakesValue user) => user -> NewProvider -> App Value
setUpLHDevice :: (HasCallStack, MakesValue tid, MakesValue owner, MakesValue uid) => tid -> owner -> uid -> (String, Int) -> App ()
lhDeviceIdOf :: MakesValue user => user -> App String
randomScimUser :: App Value
randomScimUserWith :: HasCallStack => String -> String -> App Value
uploadProfilePicture :: (HasCallStack, MakesValue usr) => usr -> App (String, String, String)
downloadProfilePicture :: (HasCallStack, MakesValue caller) => caller -> String -> String -> App (String, String)
uploadDownloadProfilePicture :: (HasCallStack, MakesValue usr) => usr -> App (String, String)
addUsersToFailureContext :: MakesValue user => [(String, user)] -> App a -> App a

Documentation

randomUser :: (HasCallStack, MakesValue domain) => domain -> CreateUser -> App Value Source #

deleteUser :: (HasCallStack, MakesValue user) => user -> App () Source #

createTeam :: (HasCallStack, MakesValue domain) => domain -> Int -> App (Value, String, [Value]) Source #

returns (owner, team id, members)

data CreateTeamMember Source #

Constructors

CreateTeamMember
Fields role :: String

Instances

Instances details

Default CreateTeamMember Source #
Instance details Defined in SetupHelpers Methods def :: CreateTeamMember Source #

createTeamMember :: (HasCallStack, MakesValue inviter) => inviter -> CreateTeamMember -> App Value Source #

connectTwoUsers :: (HasCallStack, MakesValue alice, MakesValue bob) => alice -> bob -> App () Source #

connectUsers :: (HasCallStack, MakesValue usr) => [usr] -> App () Source #

assertConnection :: (HasCallStack, MakesValue alice, MakesValue bob) => alice -> bob -> String -> App () Source #

createAndConnectUsers :: (HasCallStack, MakesValue domain) => [domain] -> App [Value] Source #

createUsers :: (HasCallStack, MakesValue domain) => [domain] -> App [Value] Source #

getAllConvs :: (HasCallStack, MakesValue u) => u -> App [Value] Source #

simpleMixedConversationSetup :: (HasCallStack, MakesValue domain) => domain -> App (Value, Value, ConvId) Source #

Setup a team user, another user, connect the two, create a proteus conversation, upgrade to mixed. Return the two users and the conversation.

supportMLS :: (HasCallStack, MakesValue u) => u -> App () Source #

addUserToTeam :: (HasCallStack, MakesValue u) => u -> App Value Source #

createMLSOne2OnePartner :: (MakesValue user, MakesValue domain, MakesValue convDomain, HasCallStack) => domain -> user -> convDomain -> App Value Source #

Create a user on the given domain, such that the 1-1 conversation with other resides on convDomain. This connects the two users as a side-effect.

randomToken :: HasCallStack => App String Source #

data TokenLength Source #

Constructors

GCM
APNS

randomSnsToken :: HasCallStack => TokenLength -> App String Source #

randomId :: HasCallStack => App String Source #

randomUUIDv1 :: HasCallStack => App String Source #

randomUserId :: (HasCallStack, MakesValue domain) => domain -> App Value Source #

withFederatingBackendsAllowDynamic :: HasCallStack => ((String, String, String) -> App a) -> App a Source #

createOne2OneConversation :: (HasCallStack, MakesValue domain1, MakesValue domain2) => domain1 -> domain2 -> App (Value, Value, Value) Source #

Create two users on different domains such that the one-to-one conversation, once finalised, will be hosted on the backend given by the first domain.

data One2OneConvState Source #

Constructors

Established
Connect

toConvType :: One2OneConvState -> Int Source #

Converts to an integer corresponding to the numeric representation of the ConvType type.

getOne2OneConversation :: HasCallStack => Value -> Value -> One2OneConvState -> App Value Source #

Fetch the one-to-one conversation between the two users that is in one of two possible states.

setupProvider :: (HasCallStack, MakesValue user) => user -> NewProvider -> App Value Source #

Create a provider, get an activation code, activate the provider and log it in. The return value is the created provider.

setUpLHDevice Source #

Arguments

:: (HasCallStack, MakesValue tid, MakesValue owner, MakesValue uid)
=> tid
-> owner
-> uid
-> (String, Int)	the host and port the LH service is running on
-> App ()

setup a legalhold device for uid, authorised by owner at the specified port

lhDeviceIdOf :: MakesValue user => user -> App String Source #

randomScimUser :: App Value Source #

randomScimUserWith :: HasCallStack => String -> String -> App Value Source #

uploadProfilePicture :: (HasCallStack, MakesValue usr) => usr -> App (String, String, String) Source #

This adds one random asset to the $sel:assets:PutSelf field in the user record and returns an asset key. The asset carries a fresh UUIDv4 in text form (even though it is typed preview and image).

downloadProfilePicture :: (HasCallStack, MakesValue caller) => caller -> String -> String -> App (String, String) Source #

Take a calling user (any user will do) and an asset domain and key, and return a (temporarily valid) s3 url plus asset payload (if created with uploadProfilePicture, that's a UUIDv4).

uploadDownloadProfilePicture :: (HasCallStack, MakesValue usr) => usr -> App (String, String) Source #

Call uploadProfilePicture and downloadPicture, returning the return value of the latter.

addUsersToFailureContext :: MakesValue user => [(String, user)] -> App a -> App a Source #