Skip to content
Snippets Groups Projects
Verified Commit ace1ab2f authored by jan.hamal.dvorak's avatar jan.hamal.dvorak
Browse files

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

parent d236cd53
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment