fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore(mail): fix html meta head, 2nd attempt

Browse Source
This commit is contained in:
Steffen Jost 2022-12-21 16:38:59 +01:00
parent 473cc57727
commit fca52aa7e6
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Handler/Utils/Mail.hs
View File

@ -202,10 +202,13 @@ addHtmlMarkdownAlternatives' fn html' = do
--let html_meta = H.head $ H.preEscapedText "<meta charset=\"utf-8\">" -- this is probably not the correct way to do this
let html_meta = [shamlet|
$doctype 5
<head>
<meta charset="utf-8">
<html>
<head>
<meta charset="utf-8">
<body>
^{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