From 21fe05ea95c54ca8107902aeb1a4c0eb135ffa8b Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Fri, 20 Jan 2023 17:49:40 +0100 Subject: [PATCH] chore(letter): reactivate user update before sending --- src/Utils/Print.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Utils/Print.hs b/src/Utils/Print.hs index 0b4ed0e20..fd03915d5 100644 --- a/src/Utils/Print.hs +++ b/src/Utils/Print.hs @@ -43,7 +43,7 @@ import Handler.Utils.Users import Handler.Utils.DateTime import Handler.Utils.Mail import Handler.Utils.Widgets (nameHtml') --- import Handler.Utils.Avs (updateReceivers) +import Handler.Utils.Avs (updateReceivers) import Jobs.Handler.SendNotification.Utils -- import Model.Types.Markup -- TODO-QSV: should this module be moved accordingly? @@ -414,7 +414,7 @@ instance MDLetter LetterRenewQualificationF where sendEmailOrLetter :: (MDLetter l) => UserId -> l -> Handler Bool sendEmailOrLetter recipient letter = do - (underling, receivers, undercopy) <- runDB $ getReceivers recipient -- updateReceivers recipient -- TODO circular dependency + (underling, receivers, undercopy) <- updateReceivers recipient -- TODO: check to avoid this almost circular dependency let tmpl = getTemplate $ pure letter pjid = getPJId letter -- Below are only needed if sent by email