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

Nest response JSON more shallowly

Browse Source
This commit is contained in:
Joe Nelson
2015-08-20 22:14:08 -07:00
parent cf04fbd6ea
commit 28f771324d
2 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/PostgREST/App.hs
-3
View File
@@ -295,9 +295,6 @@ csvMT = "text/csv"
jsonH :: Header jsonH :: Header
jsonH = (hContentType, jsonMT) jsonH = (hContentType, jsonMT)
textH :: Header
textH = (hContentType, "text/plain")
contentTypeForAccept :: Maybe BS.ByteString -> Maybe BS.ByteString contentTypeForAccept :: Maybe BS.ByteString -> Maybe BS.ByteString
contentTypeForAccept accept contentTypeForAccept accept
| isNothing accept || hasJson = Just jsonMT | isNothing accept || hasJson = Just jsonMT
src/PostgREST/PgQuery.hs
+1 -1
View File
@@ -176,7 +176,7 @@ update t cols vals = B.Stmt
callProc :: QualifiedIdentifier -> JSON.Object -> PStmt callProc :: QualifiedIdentifier -> JSON.Object -> PStmt
callProc qi params = do callProc qi params = do
let args = T.intercalate "," $ map assignment (H.toList params) let args = T.intercalate "," $ map assignment (H.toList params)
B.Stmt ("select " <> fromQi qi <> "(" <> args <> ")") empty True B.Stmt ("select * from " <> fromQi qi <> "(" <> args <> ")") empty True
where where
assignment (n,v) = pgFmtIdent n <> ":=" <> insertableValue v assignment (n,v) = pgFmtIdent n <> ":=" <> insertableValue v