refactor(mail): code cleaning and improved messages

src/Foundation/Yesod/Auth.hs

@@ -269,7 +269,7 @@ upsertCampusUser upsertMode ldapData = do
       , ..
       }
     userUpdate =  [ 
-                  -- UserDisplayName             =. userDisplayName -- SJ asks: why is the display name not updated?
+                  -- UserDisplayName             =. userDisplayName -- never updated, since users are allowed to change their DisplayName
                     UserFirstName               =. userFirstName
                   , UserSurname                 =. userSurname                  
                   , UserEmail                   =. userEmail                  

src/Mail.hs

@@ -315,8 +315,8 @@ defMailT ls (MailT mailC) = do
   fromAddress <- defaultFromAddress  
   (ret, mail, smtpData) <- runRWST mailC ls (emptyMail fromAddress)  
   mail' <- maybeT (return mail) $ do
-    guardM $ lift useReplyToInstead -- if sender must be fixed within ObjectIdDomain, use replyTo instead
-    domain <- lift mailObjectIdDomain
+    guardM useReplyToInstead -- if sender must be fixed within ObjectIdDomain, use replyTo instead
+    domain <- mailObjectIdDomain
     let sender = mail ^. _mailFrom 
         isdomainaddress = (Text.isInfixOf `on` Text.toCaseFold) domain (sender ^. _addressEmail) -- not sure how to use CI.mk and isInfixOf here
     $logDebugS "Mail" $ "Use ReplyTo instead of Sender: " <> tshow isdomainaddress <> " From was: " <> renderAddress sender <> " From is: " <> renderAddress fromAddress

templates/i18n/help-instructions/de-de-formal.hamlet

@@ -3,13 +3,13 @@ $newline never
 <p>
 
   Bitte bedenken Sie beim Stellen Ihrer Anfrage, dass das #
-  Uni2work-Kernteam aktuell aus Sarah Vaupel und Gregor Kleen besteht #
-  und zwei Personen nicht hinreichend sind um in allen Fällen eine #
-  zeitnahe Bearbeitung Ihres Anliegens zu garantieren.
+  FRADrive-Kernteam aktuell zu klein ist, #
+  um eine zeitnahe Bearbeitung Ihres Anliegens #
+  zu garantieren.
 
 <p>
 
-  Falls sich Ihr Anliegen auf eine konkrete Veranstaltung bezieht, #
-  ziehen Sie bitte auch in Betracht (insbesondere bei zeitkritischen #
-  Anliegen wie z.B. Abgaben) sich direkt an die Kursverwalter zu #
-  wenden.
+  Falls sich Ihr Anliegen auf einen konkreten Kurs bezieht, #
+  ziehen Sie bitte auch in Betracht sich direkt an die #
+  Kursverwalter zu wenden (insbesondere bei zeitkritischen #
+  Anliegen wie z.B. Abgaben). 

templates/i18n/help-instructions/en-eu.hamlet

@@ -2,9 +2,8 @@ $newline never
 
 <p>
   
-  When formulating your request please consider that the Uni2work core #
-  team currently consists of Sarah Vaupel and Gregor Kleen and that #
-  two people are not enough to guarantee a timely answer in all cases.
+  When formulating your request please consider that the FRADrive core team #
+  is currently too small to guarantee a timely answer in all cases.  
 
 <p>