fix mail errors

This commit is contained in:
nek0 2022-04-15 20:52:46 +02:00
parent 853d825951
commit d83041eb3b
1 changed files with 5 additions and 3 deletions

View File

@ -107,7 +107,8 @@ sendAdminNotification
-> T.Text -- The mail body
-> MateHandler ()
sendAdminNotification subject message = do
allUsers <- userGetAll
conn <- asks rsConnection
allUsers <- userDetailsSelectAll conn
admins <- mapM
(\uid -> checkCapability uid roleCanManageSettings. userDetailsId)
allUsers
@ -122,7 +123,8 @@ sendAdminNotification subject message = do
]
, mailCc = []
, mailBcc =[]
, mailHeaders =
, mailHeaders = [("Subject", subject)]
, mailParts =
[[ Part
{ partType = "text/plain; charset=utf8"
, partEncoding = None
@ -135,7 +137,7 @@ sendAdminNotification subject message = do
in
sendNotification mail
)
allUsers
admins
sendNotification :: Mail -> MateHandler ()
sendNotification mail = do