Do not include SET ROLE and SELECT pg_backend_pid in the statistics

scrive · Mar 8, 2024 · a37d44a · a37d44a
1 parent 498b34f
commit a37d44a
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs b/src/Database/PostgreSQL/PQTypes/Internal/Connection.hs
@@ -239,7 +239,13 @@ connect ConnectionSettings {..} = mask $ \unmask -> do
     (_, res) <- runQueryIO conn selectPid
     case F.toList $ mkQueryResult @(Identity Int32) selectPid noBackendPid res of
       [pid] -> withConnectionData conn fname $ \cd -> do
-        pure (cd {cdBackendPid = BackendPid $ fromIntegral pid}, ())
+        pure
+          ( cd
+              { cdBackendPid = BackendPid $ fromIntegral pid
+              , cdStats = initialStats -- Statistics are for user queries.
+              }
+          , ()
+          )
       pids -> do
         let err = HPQTypesError $ "unexpected backend pid: " ++ show pids
         rethrowWithContext selectPid noBackendPid $ toException err