about summary refs log tree commit diff
path: root/src/App.hs
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-08-02T17·00+0100
committerWilliam Carroll <wpcarro@gmail.com>2020-08-02T17·00+0100
commita3d783025a8d2f9b57092809667fd93824e4cfa7 (patch)
treeeb8898f93aef142de96fab6a951722a30ce4eeb9 /src/App.hs
parent2632dc10fdf8dc6dcde91bea0820b2cb67957607 (diff)
Add friendlier and more accurate instructions in invitation email
Copy Example:

To accept the invitation:
  POST /accept-invitation username=<username>
    password=<password> email=you@domain.tld
    secret=8c6b5719-7b1c-471c-bdea-7807b6c0866c
Diffstat (limited to 'src/App.hs')
-rw-r--r--src/App.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/App.hs b/src/App.hs
index d83f75e30265..e56e7c1875f5 100644
--- a/src/App.hs
+++ b/src/App.hs
@@ -69,7 +69,7 @@ sendInviteEmail T.Config{..} email@(T.Email to) (T.InvitationSecret secretUUID)
     subject = "You've been invited!"
     body =
       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 config@T.Config{..} = createAccount