chore(haddock): fix some misleading comments

src/Handler/Users.hs

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

src/Handler/Utils/Table/Pagination.hs

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

src/Jobs/Handler/LMS.hs

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