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

Reduces conde duplication assimbling response vody for RPC

Browse Source
This commit is contained in:
Diogo Biazus
2015-10-18 20:02:33 -04:00
parent 8b5f4e8556
commit f56efeb039
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/PostgREST/App.hs
+4 -3
View File
@@ -176,9 +176,10 @@ app dbstructure conf reqBody req =
asJson (callProc qi $ fromMaybe M.empty (decode reqBody)) asJson (callProc qi $ fromMaybe M.empty (decode reqBody))
bodyJson :: Maybe (Identity Value) <- H.maybeEx call bodyJson :: Maybe (Identity Value) <- H.maybeEx call
return $ responseLBS status200 [jsonH] return $ responseLBS status200 [jsonH]
(if hasPrefer "return=jwt" (let body = fromMaybe emptyArray $ runIdentity <$> bodyJson in
then ("{\"token\":\"" <> (cs $ tokenJWT jwtSecret $ fromMaybe "[]" $ runIdentity <$> bodyJson) <> "\"}") if hasPrefer "return=jwt"
else (cs $ encode $ fromMaybe emptyArray $ runIdentity <$> bodyJson)) then ("{\"token\":\"" <> (cs $ tokenJWT jwtSecret $ body) <> "\"}")
else (cs $ encode $ body))
else return $ responseLBS status404 [] "" else return $ responseLBS status404 [] ""
-- check that proc exists -- check that proc exists