fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix build

Browse Source
This commit is contained in:
Gregor Kleen 2019-04-10 09:25:51 +02:00
parent 41f228aaad
commit 1532518943
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Foundation.hs
View File

@ -2306,7 +2306,7 @@ instance YesodMail UniWorX where
mailT ctx mail = defMailT ctx $ do mailT ctx mail = defMailT ctx $ do
void setMailObjectId void setMailObjectId
setDateCurrent setDateCurrent
replaceMailHeader "Sender" . Just . addressEmail =<< getsYesod (appMailFrom . appSettings) replaceMailHeader "Sender" . Just =<< getsYesod (view $ _appMailFrom . _addressEmail)
mail <* setMailSmtpData mail <* setMailSmtpData

2
src/Utils/Lens.hs
View File

@ -70,6 +70,8 @@ hasEntityUser = hasEntity
-- hasUser = _entityVal . hasUser -- hasUser = _entityVal . hasUser
makeLenses_ ''Address
makeLenses_ ''SheetCorrector makeLenses_ ''SheetCorrector
makeLenses_ ''SubmissionGroup makeLenses_ ''SubmissionGroup