Add undocumented "return=none" preference

This commit is contained in:
Jacky Hu
2016-06-18 10:18:43 +08:00
parent a7316aff01
commit 816d577f53
+6 -2
View File
@@ -148,9 +148,13 @@ makeGetParams cs =
, makePreferParam ["plurality=singular", "count=none"] , makePreferParam ["plurality=singular", "count=none"]
] ]
makeReturnPreferenceParam :: Param
makeReturnPreferenceParam =
makePreferParam ["return=representation", "return=minimal", "return=none"]
makePostParams :: Text -> [Param] makePostParams :: Text -> [Param]
makePostParams tn = makePostParams tn =
[ makePreferParam ["return=representation", "return=minimal"] [ makeReturnPreferenceParam
, (mempty :: Param) , (mempty :: Param)
& name .~ "body" & name .~ "body"
& description ?~ tn & description ?~ tn
@@ -160,7 +164,7 @@ makePostParams tn =
makeDeleteParams :: [Param] makeDeleteParams :: [Param]
makeDeleteParams = makeDeleteParams =
[ makePreferParam ["return=representation", "return=minimal"] ] [ makeReturnPreferenceParam ]
makePathItem :: (Table, [Column], [Text]) -> (FilePath, PathItem) makePathItem :: (Table, [Column], [Text]) -> (FilePath, PathItem)
makePathItem (t, cs, _) = ("/" ++ unpack tn, p $ tableInsertable t) makePathItem (t, cs, _) = ("/" ++ unpack tn, p $ tableInsertable t)