Fix #1273, don't ignore RPC arguments by default

* Add different error message for pg 9.4
2019-04-19 16:03:42 -05:00
parent 033ee5a06e
commit 2044f77d49
5 changed files with 37 additions and 6 deletions
@@ -282,9 +282,8 @@ app dbStructure proc cols conf apiRequest =
            Left errorResponse -> return errorResponse
            Right ((q, cq), bField) -> do
              let singular = contentType == CTSingularJSON
-                  specifiedPgArgs = filter ((`S.member` cols) . pgaName) $ maybe [] pdArgs proc
              row <- H.statement (toS $ pjRaw pJson) $
-                callProc qi specifiedPgArgs returnsScalar q cq shouldCount
+                callProc qi (specifiedProcArgs cols proc) returnsScalar q cq shouldCount
                         singular (iPreferSingleObjectParameter apiRequest)
                         (contentType == CTTextCSV)
                         (contentType == CTOctetStream) bField