fix: in-db config values not loading for pgrst.server_trace_header and pgrst.server_cors_allowed_origins

2024-03-27 15:59:35 -05:00
parent d02540ac44
commit 428a6fef63
8 changed files with 27 additions and 19 deletions
@@ -15,10 +15,15 @@ import qualified Network.Wai.Middleware.Cors as Wai

 import Data.List (lookup)

+import PostgREST.AppState (AppState, getConfig)
+import PostgREST.Config   (AppConfig (..))
+
 import Protolude

-middleware :: Maybe [Text] -> Wai.Middleware
-middleware corsAllowedOrigins = Wai.cors $ corsPolicy corsAllowedOrigins
+middleware :: AppState -> Wai.Middleware
+middleware appState app req res = do
+  conf <- getConfig appState
+  Wai.cors (corsPolicy $ configServerCorsAllowedOrigins conf) app req res

 -- | CORS policy to be used in by Wai Cors middleware
 corsPolicy :: Maybe [Text] -> Wai.Request -> Maybe Wai.CorsResourcePolicy