fraport/fradrive
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

2
src/Handler/Users.hs
View File

@ -353,7 +353,7 @@ postUsersR = do
, dbtExtraReps = [] , dbtExtraReps = []
} }
-- $logInfoS "UsersFormResult" $ tshow usersRes -- $logInfoS "UsersFormResult" $ tshow usersRes
formResult usersRes $ \case formResult usersRes $ \case
(act, usersSet) (act, usersSet)
| Set.null usersSet && isNotSetSupervisor act -> | Set.null usersSet && isNotSetSupervisor act ->

4
src/Handler/Utils/Table/Pagination.hs
View File

@ -1446,8 +1446,8 @@ dbTable PSValidator{..} dbtable@DBTable{ dbtIdent = dbtIdent'@(toPathPiece -> db
let let
rowCount = fromMaybe 0 $ rows' ^? _head . _1 . _Value rowCount = fromMaybe 0 $ rows' ^? _head . _1 . _Value
-- | selectPagesize = fromMaybe 0 $ rows' ^? _head . _1 . _Value -- | selectPagesize = fromMaybe 0 $ rows' ^? _head . _1 . _Value
-- | otherwise = olength64 rows -- | otherwise = olength64 rows
rawAction = tblLink rawAction = tblLink
$ setParam (wIdent "sorting") Nothing $ setParam (wIdent "sorting") Nothing

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