@@ -17,7 +17,6 @@ module PostgREST.Config
1717 , JSPathExp (.. )
1818 , FilterExp (.. )
1919 , LogLevel (.. )
20- , LogQuery (.. )
2120 , OpenAPIMode (.. )
2221 , Proxy (.. )
2322 , toText
@@ -99,7 +98,7 @@ data AppConfig = AppConfig
9998 , configJwtSecretIsBase64 :: Bool
10099 , configJwtCacheMaxEntries :: Int
101100 , configLogLevel :: LogLevel
102- , configLogQuery :: LogQuery
101+ , configLogQuery :: Bool
103102 , configOpenApiMode :: OpenAPIMode
104103 , configOpenApiSecurityActive :: Bool
105104 , configOpenApiServerProxyUri :: Maybe Text
@@ -128,14 +127,6 @@ dumpLogLevel = \case
128127 LogInfo -> " info"
129128 LogDebug -> " debug"
130129
131- data LogQuery = LogQueryMain | LogQueryDisabled
132- deriving (Eq )
133-
134- dumpLogQuery :: LogQuery -> Text
135- dumpLogQuery = \ case
136- LogQueryMain -> " main-query"
137- LogQueryDisabled -> " disabled"
138-
139130data OpenAPIMode = OAFollowPriv | OAIgnorePriv | OADisabled
140131 deriving Eq
141132
@@ -179,7 +170,7 @@ toText conf =
179170 ,(" jwt-secret-is-base64" , T. toLower . show . configJwtSecretIsBase64)
180171 ,(" jwt-cache-max-entries" , show . configJwtCacheMaxEntries)
181172 ,(" log-level" , q . dumpLogLevel . configLogLevel)
182- ,(" log-query" , q . dumpLogQuery . configLogQuery)
173+ ,(" log-query" , T. toLower . show . configLogQuery)
183174 ,(" openapi-mode" , q . dumpOpenApiMode . configOpenApiMode)
184175 ,(" openapi-security-active" , T. toLower . show . configOpenApiSecurityActive)
185176 ,(" openapi-server-proxy-uri" , q . fromMaybe mempty . configOpenApiServerProxyUri)
@@ -289,7 +280,7 @@ parser optPath env dbSettings roleSettings roleIsolationLvl =
289280 (optBool " secret-is-base64" ))
290281 <*> (fromMaybe 1000 <$> optInt " jwt-cache-max-entries" )
291282 <*> parseLogLevel " log-level"
292- <*> parseLogQuery " log-query"
283+ <*> (fromMaybe False <$> optBool " log-query" )
293284 <*> parseOpenAPIMode " openapi-mode"
294285 <*> (fromMaybe False <$> optBool " openapi-security-active" )
295286 <*> parseOpenAPIServerProxyURI " openapi-server-proxy-uri"
@@ -365,14 +356,6 @@ parser optPath env dbSettings roleSettings roleIsolationLvl =
365356 Just " debug" -> pure LogDebug
366357 Just _ -> fail " Invalid logging level. Check your configuration."
367358
368- parseLogQuery :: C. Key -> C. Parser C. Config LogQuery
369- parseLogQuery k =
370- optString k >>= \ case
371- Nothing -> pure LogQueryDisabled
372- Just " disabled" -> pure LogQueryDisabled
373- Just " main-query" -> pure LogQueryMain
374- Just _ -> fail " Invalid SQL logging value. Check your configuration."
375-
376359 parseTxEnd :: C. Key -> ((Bool , Bool ) -> Bool ) -> C. Parser C. Config Bool
377360 parseTxEnd k f =
378361 optString k >>= \ case
0 commit comments