c3d2/yammat
c3d2
/
yammat
38
0
Fork 1
Code Issues Pull Requests Releases Activity

update for newer ghc+yesod

This commit is contained in:
Astro 2020-06-05 18:28:46 +02:00
parent d11a7aeba7
commit 9d7a9f2b2a
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Handler/Common.hs
View File

@ -217,9 +217,8 @@ sendMail to subject body =
, mailParts =[[Part , mailParts =[[Part
{ partType = "text/plain; charset=utf-8" { partType = "text/plain; charset=utf-8"
, partEncoding = None , partEncoding = None
, partFilename = Nothing
, partHeaders = [] , partHeaders = []
, partContent = E.encodeUtf8 body , partContent = PartContent $ E.encodeUtf8 body
}]] }]]
} }

2
Settings.hs
View File

@ -20,7 +20,7 @@
-- declared in the Foundation.hs file. -- declared in the Foundation.hs file.
module Settings where module Settings where
import ClassyPrelude.Yesod hiding (throw) import ClassyPrelude.Yesod
import Control.Exception (throw) import Control.Exception (throw)
import Data.Aeson (Result (..), fromJSON, withObject, (.!=), import Data.Aeson (Result (..), fromJSON, withObject, (.!=),
(.:?)) (.:?))