feat: force read-write for listener connection

2024-05-19 23:14:19 -05:00
parent 3cf565614d
commit 7e61c9deb0
5 changed files with 46 additions and 25 deletions
@@ -64,6 +64,7 @@ import Data.Time.Clock    (UTCTime, getCurrentTime)

 import PostgREST.Config                  (AppConfig (..),
                                          addFallbackAppName,
+                                          addTargetSessionAttrs,
                                          readAppConfig)
 import PostgREST.Config.Database         (queryDbSettings,
                                          queryPgVersion,
@@ -560,7 +561,7 @@ retryingListen appState@AppState{stateObserver=observer, stateMainThreadId=mainT
      let delay = fromMaybe 0 rsPreviousDelay `div` oneSecondInUs in
      observer $ DBListenRetry delay

-    connection <- acquire $ toUtf8 (addFallbackAppName prettyVersion configDbUri)
+    connection <- acquire $ toUtf8 (addTargetSessionAttrs $ addFallbackAppName prettyVersion configDbUri)
    case connection of
      Right conn -> do