From cc465fad164a2c6c2ed1e4e92fcf803f64e6e39e Mon Sep 17 00:00:00 2001
From: Steffen Jost <S.Jost@Fraport.de>
Date: Tue, 6 Jun 2023 10:19:46 +0000
Subject: [PATCH] chore(haddock): fix some misleading comments

---
 src/Handler/Users.hs                  | 2 +-
 src/Handler/Utils/Table/Pagination.hs | 4 ++--
 src/Jobs/Handler/LMS.hs               | 3 +--
 3 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/Handler/Users.hs b/src/Handler/Users.hs
index 888ccf2a4..ad3ab6ee1 100644
--- a/src/Handler/Users.hs
+++ b/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 ->
diff --git a/src/Handler/Utils/Table/Pagination.hs b/src/Handler/Utils/Table/Pagination.hs
index d3852d2eb..5b44a4b75 100644
--- a/src/Handler/Utils/Table/Pagination.hs
+++ b/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
diff --git a/src/Jobs/Handler/LMS.hs b/src/Jobs/Handler/LMS.hs
index 4da33143c..9608a7342 100644
--- a/src/Jobs/Handler/LMS.hs
+++ b/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