mime 邮件包中的 renderParts 错误

Question

我正在尝试弄清楚如何使用 mime-mail-ses package. I used renderSendMailSES example from Yesod wiki 通过 AWS SES 发送电子邮件以尝试下面的代码 - 我在这里使用 renderMail 来调试 mail 正文验证：

    *Main> let textPart = Part {partType = "text/plain; charset=utf-8", 
partEncoding = None, partFilename = Nothing, partHeaders = [], partContent = "Testing"}
    *Main> let htmlPart = Part { partType = "text/html; charset=utf-8", 
partEncoding = None, partFilename = Nothing, partHeaders = [], partContent = "Testing"}
    *Main> renderMail' (emptyMail $ Address Nothing "noreply@example.com") {
 mailTo = [Address Nothing "test@example.com"] , mailHeaders =  [ ("Subject", 
"Testing email address")], mailParts = [[textPart, htmlPart]]}

我收到这个错误：

*** Exception: renderParts called with null parts

这很让人头疼，因为上面的例子看起来与 Yesod Wiki 没有什么不同。由于上述错误，我也无法添加附件。如果我没记错的话，附件看起来像 mailParts:

mailParts = [[textPart,htmlPart],[attachment1]]

我查看了导致错误的代码，但无法找出问题所在。

非常感谢解决此错误的指示。

Answer 1

这是一个版本控制问题。我有一个来自 github 的 http-client 的本地补丁副本（添加一些 stackage 中还没有的流验证）这似乎是这里的罪魁祸首。我通过将 http-client 更改为指向堆栈上的 http-client 以及具有我的修复程序的发行版本 (0.4.31) 来修复它。现在，它工作正常。

mime 邮件包中的 renderParts 错误

renderParts error in mime-mail package

haskell

yesod