From fca52aa7e6d7987ca9e46e035748d1becff8c50b Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Wed, 21 Dec 2022 16:38:59 +0100 Subject: [PATCH] chore(mail): fix html meta head, 2nd attempt --- src/Handler/Utils/Mail.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/Handler/Utils/Mail.hs b/src/Handler/Utils/Mail.hs index e0b13af8c..c4b9fbf7d 100644 --- a/src/Handler/Utils/Mail.hs +++ b/src/Handler/Utils/Mail.hs @@ -202,10 +202,13 @@ addHtmlMarkdownAlternatives' fn html' = do --let html_meta = H.head $ H.preEscapedText "" -- this is probably not the correct way to do this let html_meta = [shamlet| $doctype 5 - - + + + + + ^{html} |] - providePreferredAlternative $ NamedMailPart { disposition = InlineDisposition $ fn <> ".html", namedPart = html_meta <> html } + providePreferredAlternative $ NamedMailPart { disposition = InlineDisposition $ fn <> ".html", namedPart = html_meta } whenIsJust markdown $ provideAlternative . NamedMailPart (InlineDisposition (fn <> ".txt")) where writerOptions = markdownWriterOptions