Fix build

src/Foundation.hs

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

src/Utils/Lens.hs

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