perf: use pg_basetype on PG 17+ for schema cache

2026-08-02 11:47:26 +00:00
parent 6a7ad33524
commit 131df9b578
11 changed files with 118 additions and 88 deletions
@@ -92,8 +92,9 @@ retryingSchemaCacheLoad appState@AppState{stateObserver=observer} =
    qSchemaCache :: IO (Maybe SchemaCache)
    qSchemaCache = do
      conf@AppConfig{..} <- getConfig appState
+      pgVer <- getPgVersion appState
      (resultTime, result) <-
-        timeItT $ usePool appState (SQL.transactionNoRetry SQL.ReadCommitted SQL.Read $ querySchemaCache conf)
+        timeItT $ usePool appState (SQL.transactionNoRetry SQL.ReadCommitted SQL.Read $ querySchemaCache pgVer conf)
      case result of
        Left e -> do
          markSchemaCachePending appState