Handler: improve confirmationMail text

1 files changed, 9 insertions, 9 deletions

diff --git a/src/Shop/Handler.hs b/src/Shop/Handler.hs
index a6bd2f4..5298897 100644
--- a/src/Shop/Handler.hs
+++ b/src/Shop/Handler.hs
@@ -128,16 +128,16 @@ confirmationMail from to chargeform stotal = simpleMail
     [ to ]
     []
     []
-    ("[fermedegouet.fr] Commande validée: (" <> stotal <> ")")
-    [ plainTextPart $ toS $ T.unlines
-        [ "Votre commande, d'un montant de " <> stotal <> ", a bien été validée."
-        , ""
-        , "À bientôt!"
-        ]
-    , htmlPart $ renderText $ htmlContent "Ferme de Gouet: Commande validée" $ do
-        p_ $ "Votre commande, d'un montant de " <> toHtml stotal <> ", a bien été validée."
-        p_ "À bientôt!"
+    ("[fermedegouet.fr] Formulaire de prêt validé: (" <> stotal <> ")")
+    [ plainTextPart $ toS $ T.unlines $ intersperse "" textlines
+    , htmlPart $ renderText $ htmlContent "Ferme de Gouet: Formulaire de prêt validé." $ mapM (p_ . toHtml) textlines
     ]
+  where
+    textlines =
+        [ "Votre formulaire de prêt a bien été validé. Pour rappel, le montant que vous avez saisi est " <> stotal <> ", avec un taux d'intérêt de " <> show (rate chargeform) <> "%. Un grand merci !"
+        , "Je vous recontacterai rapidement pour mettre en place le prêt."
+        , "À bientôt !"
+        ]
 
 htmlContent :: Monad m => Text -> HtmlT m a -> HtmlT m a
 htmlContent title content = do