Add all supported successful responses

2016-06-18 10:18:43 +08:00
parent d3d1fbe7e5
commit 11aeb4fbda
1 changed files with 3 additions and 0 deletions
@@ -175,12 +175,15 @@ makePathItem (t, cs, _) = ("/" ++ unpack tn, p $ tableInsertable t)
      & at 200 ?~ "OK"
    getOp = tOp
      & parameters .~ map Inline (makeGetParams cs ++ rs)
+      & at 206 ?~ "Partial Content"
    postOp = tOp
      & consumes ?~ makeMimeList [ApplicationJSON, TextCSV]
      & parameters .~ map Inline (makePostParams tn)
+      & at 201 ?~ "Created"
    patchOp = tOp
      & consumes ?~ makeMimeList [ApplicationJSON, TextCSV]
      & parameters .~ map Inline (makePostParams tn ++ rs)
+      & at 204 ?~ "No Content"
    deletOp = tOp
      & parameters .~ map Inline (makeDeleteParams ++ rs)
    pr = (mempty :: PathItem) & get ?~ getOp