Fix broken use of Network.Mail.Mime

as per yesodweb/yesodweb.com-content#241
yesodweb · Oct 16, 2019 · 2e0b797 · 2e0b797
1 parent e5170ac
commit 2e0b797
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>