mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add friendlier and more accurate instructions in invitation email

Browse source 
Copy Example:

To accept the invitation:
  POST /accept-invitation username=<username>
    password=<password> email=you@domain.tld
    secret=8c6b5719-7b1c-471c-bdea-7807b6c0866c
This commit is contained in:
William Carroll 2020-08-02 18:00:29 +01:00
parent 2632dc10fd
commit a3d783025a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/App.hs
View file

@ -69,7 +69,7 @@ sendInviteEmail T.Config{..} email@(T.Email to) (T.InvitationSecret secretUUID)
subject = "You've been invited!" subject = "You've been invited!"
body = body =
let secret = secretUUID |> UUID.toString in let secret = secretUUID |> UUID.toString in
cs configServer ++ "/accept-invitation?email=" ++ cs to ++ "&secret=" ++ secret "To accept the invitation: POST /accept-invitation username=<username> password=<password> email=" ++ cs to ++ " secret=" ++ secret
server :: T.Config -> Server API server :: T.Config -> Server API
server config@T.Config{..} = createAccount server config@T.Config{..} = createAccount