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

chore(mail): add supervisor mail tag only for supervisors

Browse Source
This commit is contained in:
Steffen Jost 2022-11-03 16:53:54 +01:00
parent a75c7520b5
commit 030a4be533
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/Utils/Mail.hs
View File

@ -84,8 +84,9 @@ userMailT uid mAct = do
mailT ctx $ do mailT ctx $ do
_mailTo .= pure (userAddress supervisor) _mailTo .= pure (userAddress supervisor)
mAct mAct
mapSubject ("[SUPERVISOR]"<>) -- changing subject is easy unless (uid==svr) $ -- do
--addPart explanationSupervisor -- adding an attachment is also easy mapSubject ("[SUPERVISOR]"<>) -- changing subject is easy
--addPart explanationSupervisor -- adding an attachment is also easy
_userMailTdirect :: ( MonadHandler m _userMailTdirect :: ( MonadHandler m