[mail] some small refactoring

efcfe396 · Przemyslaw Kaminski · 02ccff83 · efcfe396
Commit efcfe396 authored Mar 24, 2022 by Przemyslaw Kaminski
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

Mail.hs src/Gargantext/Core/Mail.hs +4 -1

No files found.
--- a/src/Gargantext/Core/Mail.hs
+++ b/src/Gargantext/Core/Mail.hs
@@ -48,7 +48,10 @@ mail mailCfg model = do
    (m,u)   = email_to         model
    subject = email_subject    model
    body    = emailWith (view gc_url cfg)    model
-  liftBase $ gargMail mailCfg (GargMail m (Just u) subject body)
+  liftBase $ gargMail mailCfg (GargMail { gm_to = m
+                                        , gm_name = Just u
+                                        , gm_subject = subject
+                                        , gm_body = body })

 ------------------------------------------------------------------------
 emailWith :: ServerAddress -> MailModel -> Text