jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cov: refactor ApiRequest profile header detection

Browse Source
This commit is contained in:
Wolfgang Walther
2021-01-14 16:40:29 +01:00
committed by Wolfgang Walther
parent 6dd126461e
commit ba86b479f8
1 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/PostgREST/ApiRequest.hs
+11 -6
View File
@@ -261,12 +261,17 @@ userApiRequest confSchemas rootSpec dbStructure req reqBody
profile profile
| length confSchemas <= 1 -- only enable content negotiation by profile when there are multiple schemas specified in the config | length confSchemas <= 1 -- only enable content negotiation by profile when there are multiple schemas specified in the config
= Nothing = Nothing
| action `elem` [ActionCreate, ActionUpdate, ActionSingleUpsert, ActionDelete, ActionInvoke InvPost] -- POST/PATCH/PUT/DELETE don't use the same header as per the spec | otherwise = case action of
= Just $ maybe defaultSchema toS $ lookupHeader "Content-Profile" -- POST/PATCH/PUT/DELETE don't use the same header as per the spec
| action `elem` [ActionRead True, ActionRead False, ActionInvoke InvGet, ActionInvoke InvHead, ActionCreate -> contentProfile
ActionInspect False, ActionInspect True, ActionInfo] ActionUpdate -> contentProfile
= Just $ maybe defaultSchema toS $ lookupHeader "Accept-Profile" ActionSingleUpsert -> contentProfile
| otherwise = Nothing ActionDelete -> contentProfile
ActionInvoke InvPost -> contentProfile
_ -> acceptProfile
where
contentProfile = Just $ maybe defaultSchema toS $ lookupHeader "Content-Profile"
acceptProfile = Just $ maybe defaultSchema toS $ lookupHeader "Accept-Profile"
schema = fromMaybe defaultSchema profile schema = fromMaybe defaultSchema profile
target = target =
let let