Add request method and path GUCs

src/PostgREST/ApiRequest.hs

@@ -94,6 +94,8 @@ data ApiRequest = ApiRequest {
   , iJWT                  :: Text                             -- ^ JSON Web Token
   , iHeaders              :: [(Text, Text)]                   -- ^ HTTP request headers
   , iCookies              :: [(Text, Text)]                   -- ^ Request Cookies
+  , iPath                 :: ByteString                       -- ^ Raw request path
+  , iMethod               :: ByteString                       -- ^ Raw request method
   }
 
 -- | Examines HTTP request and translates it into user intent.
@@ -133,6 +135,8 @@ userApiRequest schema rootSpec req reqBody
       , iJWT = tokenStr
       , iHeaders = [ (toS $ CI.foldedCase k, toS v) | (k,v) <- hdrs, k /= hCookie]
       , iCookies = maybe [] parseCookiesText $ lookupHeader "Cookie"
+      , iPath = rawPathInfo req
+      , iMethod = method
       }
  where
   -- queryString with '+' converted to ' '(space)

src/PostgREST/Middleware.hs

@@ -38,10 +38,12 @@ runWithClaims conf eClaims app req =
     JWTInvalid JWTExpired -> return . errorResponseFor . JwtTokenInvalid $ "JWT expired"
     JWTInvalid e          -> return . errorResponseFor . JwtTokenInvalid . show $ e
     JWTClaims claims      -> do
-      H.sql $ toS . mconcat $ setSearchPathSql : setRoleSql ++ claimsSql ++ headersSql ++ cookiesSql ++ appSettingsSql
+      H.sql $ toS . mconcat $ setSearchPathSql : setRoleSql ++ claimsSql ++ [methodSql, pathSql] ++ headersSql ++ cookiesSql ++ appSettingsSql
       mapM_ H.sql customReqCheck
       app req
       where
+        methodSql = setLocalQuery mempty ("request.method", toS $ iMethod req)
+        pathSql = setLocalQuery mempty ("request.path", toS $ iPath req)
         headersSql = setLocalQuery "request.header." <$> iHeaders req
         cookiesSql = setLocalQuery "request.cookie." <$> iCookies req
         claimsSql = setLocalQuery "request.jwt.claim." <$> [(c,unquoted v) | (c,v) <- M.toList claimsWithRole]