Issue http 405 for anything but POST on RPC

Fixes #481
2016-02-01 22:52:57 -08:00
parent aec11e34a7
commit a0ef4eae4d
4 changed files with 13 additions and 2 deletions
@@ -31,6 +31,7 @@ data Action = ActionCreate | ActionRead
            | ActionUnknown BS.ByteString deriving Eq
 -- | The target db object of a user action
 data Target = TargetIdent QualifiedIdentifier
+            | TargetProc  QualifiedIdentifier
            | TargetRoot
            | TargetUnknown [T.Text]
 -- | How to return the inserted data
@@ -90,7 +91,7 @@ userApiRequest schema req reqBody =
                 []            -> TargetRoot
                 [table]       -> TargetIdent
                                  $ QualifiedIdentifier schema table
-                 ["rpc", proc] -> TargetIdent
+                 ["rpc", proc] -> TargetProc
                                  $ QualifiedIdentifier schema proc
                 other         -> TargetUnknown other
      payload = case pickContentType (lookupHeader "content-type") of