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

Include all fields in Location header when no primary keys defined

Browse Source
This commit is contained in:
Joe Nelson
2014-12-06 17:42:21 -08:00
parent e3d3a07d14
commit 42faaa97c9
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/App.hs
+3 -1
View File
@@ -112,7 +112,9 @@ app req =
Just inserted = decode (cs insertedJson) :: Maybe Object Just inserted = decode (cs insertedJson) :: Maybe Object
primaryKeys <- map cs <$> primaryKeyColumns qt primaryKeys <- map cs <$> primaryKeyColumns qt
let primaries = filterWithKey (const . (`elem` primaryKeys)) inserted let primaries = if Prelude.null primaryKeys
then inserted
else filterWithKey (const . (`elem` primaryKeys)) inserted
let params = urlEncodeVars let params = urlEncodeVars
$ map (\t -> (cs $ fst t, "eq." <> cs (encode $ snd t))) $ map (\t -> (cs $ fst t, "eq." <> cs (encode $ snd t)))
$ sortBy (comparing fst) $ toList primaries $ sortBy (comparing fst) $ toList primaries