diff options
Diffstat (limited to 'src/Shop/Handler.hs')
| -rw-r--r-- | src/Shop/Handler.hs | 18 |
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 |