diff --git a/src/Gargantext/Core/Mail.hs b/src/Gargantext/Core/Mail.hs
index 8fc2581ec75e751dcc25cfc2fba3508c6b253509..64977babdad7edc2d1305c790fe0f649b627e630 100644
--- 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