[FIX] bug invitation

0b18ea13 · Alexandre Delanoë · 0a5dc16e · 0b18ea13
Commit 0b18ea13 authored Jan 13, 2021 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

Mail.hs src/Gargantext/Core/Mail.hs +2 -2

No files found.
--- a/src/Gargantext/Core/Mail.hs
+++ b/src/Gargantext/Core/Mail.hs
@@ -57,10 +57,10 @@ emailWith server model =
 email_to :: MailModel -> (EmailAddress, Name)
 email_to (Invitation user) = email_to' user
 email_to (PassUpdate user) = email_to' user
-email_to (MailInfo n m)    = (m, n)
+email_to (MailInfo u m)    = (m, u)

 email_to' :: NewUser GargPassword -> (EmailAddress, Name)
-email_to' (NewUser u m _) = (u,m)
+email_to' (NewUser u m _) = (m,u)

 ------------------------------------------------------------------------
 bodyWith :: ServerAdress -> MailModel -> [Text]