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

chore(haddock): fix some misleading comments

Browse Source
This commit is contained in:
Steffen Jost 2023-06-06 10:19:46 +00:00
parent e7a2cfc8ac
commit cc465fad16
3 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Jobs/Handler/LMS.hs
View File

@ -298,7 +298,6 @@ dispatchJobLmsUserlist qid = JobHandlerAtomic act
let lReceived = lmsUserlistTimestamp lulist let lReceived = lmsUserlistTimestamp lulist
lmsMsgDay = utctDay lReceived lmsMsgDay = utctDay lReceived
update luid [LmsUserReceived =. Just lReceived] -- LmsUserNotified is only updated upon sending notifications update luid [LmsUserReceived =. Just lReceived] -- LmsUserNotified is only updated upon sending notifications
-- $logInfoS "LmsUserlist" $ tshow lulist
when (isNothing $ lmsUserNotified luser) $ do -- notify users that lms is available when (isNothing $ lmsUserNotified luser) $ do -- notify users that lms is available
queueDBJob JobSendNotification queueDBJob JobSendNotification