diff --git a/src/App.hs b/src/App.hs index d83f75e30..e56e7c187 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= password= email=" ++ cs to ++ " secret=" ++ secret server :: T.Config -> Server API server config@T.Config{..} = createAccount