Do not confuse queue.id with history.id in logs

Signed-off-by: Jan Hamal Dvořák <mordae@anilinux.org>

src/Pelican/Backend/Sender.hs

@@ -99,9 +99,7 @@ where
 
   handleRejected :: Pg.Connection -> Int64 -> Text -> Backend ()
   handleRejected conn qid reason = do
-    logDebug tag [ "Gateway rejected ", toLogStr qid
-                 , ", reason: ", toLogStr (show reason)
-                 ]
+    logDebug tag ["Rejected, reason: ", toLogStr (show reason)]
 
     liftIO do
       void $ Pg.execute conn [sql| update history h
@@ -116,9 +114,7 @@ where
 
   handleRetry :: Pg.Connection -> Int64 -> Text -> Backend ()
   handleRetry conn qid reason = do
-    logDebug tag [ "Gateway suggested retry of ", toLogStr qid
-                 , ", reason: ", toLogStr (show reason)
-                 ]
+    logDebug tag ["Retry, reason: ", toLogStr (show reason)]
 
     liftIO do
       void $ Pg.execute conn [sql| update history h set reason = ?
@@ -131,9 +127,7 @@ where
   handleAccepted conn qid parts = do
     let parts' = fromList parts :: Vector Int64
 
-    logDebug tag [ "Gateway accepted ", toLogStr qid
-                 , ", parts: ", toLogStr (show parts)
-                 ]
+    logDebug tag ["Accepted, parts: ", toLogStr (show parts)]
 
     liftIO do
       void $ Pg.execute conn [sql| update history h