From 4c4102f9bacbf7c3def71cfb56a5ba79eb851697 Mon Sep 17 00:00:00 2001 From: Félix Sipma Date: Sat, 15 Dec 2018 22:48:21 +0100 Subject: Handler: improve confirmationMail text --- src/Shop/Handler.hs | 18 +++++++++--------- 1 file 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 -- cgit v1.2.3