Skip to content

haskell-gargantext
haskell-gargantext
Commit 0b18ea13 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[FIX] bug invitation

parent 0a5dc16e
Pipeline #1340 failed with stage
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 2 deletions
    src/Gargantext/Core/Mail.hs
    View file @ 0b18ea13
    ...@@ -57,10 +57,10 @@ emailWith server model = ...@@ -57,10 +57,10 @@ emailWith server model =
    email_to :: MailModel -> (EmailAddress, Name) email_to :: MailModel -> (EmailAddress, Name)
    email_to (Invitation user) = email_to' user email_to (Invitation user) = email_to' user
    email_to (PassUpdate 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 GargPassword -> (EmailAddress, Name)
    email_to' (NewUser u m _) = (u,m) email_to' (NewUser u m _) = (m,u)
    ------------------------------------------------------------------------ ------------------------------------------------------------------------
    bodyWith :: ServerAdress -> MailModel -> [Text] bodyWith :: ServerAdress -> MailModel -> [Text]
    ......
    Markdown is supported
    0% or
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment