Merge pull request #51 from benjamingoldstein/patch-1

Fix broken use of Network.Mail.Mime
yesodweb · Oct 16, 2019 · 5e54510 · 5e54510
2 parents e5170ac + 2e0b797
commit 5e54510
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/cookbook/yesod-auth-json.md b/cookbook/yesod-auth-json.md
@@ -124,9 +124,9 @@ instance YesodAuthEmail App where
         Part
         { partType = "text/plain; charset=utf-8"
         , partEncoding = None
-        , partFilename = Nothing
+        , partDisposition = DefaultDisposition
         , partContent =
-          Data.Text.Lazy.Encoding.encodeUtf8
+          PartContent $ Data.Text.Lazy.Encoding.encodeUtf8
             [stext|
                     Please confirm your email address by clicking on the link below.
 
@@ -140,9 +140,9 @@ instance YesodAuthEmail App where
         Part
         { partType = "text/html; charset=utf-8"
         , partEncoding = None
-        , partFilename = Nothing
+        , partDisposition = DefaultDisposition
         , partContent =
-          renderHtml
+          PartContent $ renderHtml
             [shamlet|
                     <p>Please confirm your email address by clicking on the link below.
                     <p>