From 9d7a9f2b2a99a4c4d805556db60cce7df6a53453 Mon Sep 17 00:00:00 2001
From: Astro <astro@spaceboyz.net>
Date: Fri, 5 Jun 2020 18:28:46 +0200
Subject: [PATCH] update for newer ghc+yesod

---
 Handler/Common.hs | 3 +--
 Settings.hs       | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/Handler/Common.hs b/Handler/Common.hs
index cb35dda..ce06c17 100644
--- a/Handler/Common.hs
+++ b/Handler/Common.hs
@@ -217,9 +217,8 @@ sendMail to subject body =
       , mailParts =[[Part
         { partType = "text/plain; charset=utf-8"
         , partEncoding = None
-        , partFilename = Nothing
         , partHeaders = []
-        , partContent = E.encodeUtf8 body
+        , partContent = PartContent $ E.encodeUtf8 body
         }]]
       }
 
diff --git a/Settings.hs b/Settings.hs
index 37f1435..22cd795 100644
--- a/Settings.hs
+++ b/Settings.hs
@@ -20,7 +20,7 @@
 -- declared in the Foundation.hs file.
 module Settings where
 
-import ClassyPrelude.Yesod hiding (throw)
+import ClassyPrelude.Yesod
 import Control.Exception          (throw)
 import Data.Aeson                 (Result (..), fromJSON, withObject, (.!=),
                                    (.:?))