Add role-claim-key config value

2018-04-30 11:31:06 -05:00
parent 5c87fe2704
commit f033c2c4b5
10 changed files with 147 additions and 29 deletions
@@ -78,7 +78,7 @@ postgrest conf refDbStructure pool getTime worker =
        response <- case userApiRequest (configSchema conf) req body of
          Left err -> return $ apiRequestError err
          Right apiRequest -> do
-            eClaims <- jwtClaims jwtSecret (configJwtAudience conf) (toS $ iJWT apiRequest) time
+            eClaims <- jwtClaims jwtSecret (configJwtAudience conf) (toS $ iJWT apiRequest) time (rightToMaybe $ configRoleClaimKey conf)

            let authed = containsRole eClaims
                proc = case (iTarget apiRequest, iPayload apiRequest, iPreferSingleObjectParameter apiRequest) of