diff --git a/src/PostgREST/ApiRequest.hs b/src/PostgREST/ApiRequest.hs index 877774bf6..1159c0013 100644 --- a/src/PostgREST/ApiRequest.hs +++ b/src/PostgREST/ApiRequest.hs @@ -182,9 +182,7 @@ userApiRequest schema req reqBody other -> TargetUnknown other shouldParsePayload = action `elem` [ActionCreate, ActionUpdate, ActionInvoke] relevantPayload = if shouldParsePayload - then case payload of - Right p -> Just p - Left _ -> Nothing + then rightToMaybe payload else Nothing path = pathInfo req method = requestMethod req