Fix the invalid order parameter bug found by test

This commit is contained in:
Jacky Hu
2016-06-18 10:18:43 +08:00
parent 0220040341
commit a9ffde4d5f
+13 -4
View File
@@ -127,16 +127,25 @@ makePreferParam ts =
& type_ .~ SwaggerString
& enum_ .~ decode (encode ts))
makeGetParams :: [Column] -> [Param]
makeGetParams cs =
makeRangeParams ++
[ (mempty :: Param)
makeSelectParam :: Param
makeSelectParam =
(mempty :: Param)
& name .~ "select"
& description ?~ "Filtering Columns"
& required ?~ False
& schema .~ ParamOther ((mempty :: ParamOtherSchema)
& in_ .~ ParamQuery
& type_ .~ SwaggerString)
makeGetParams :: [Column] -> [Param]
makeGetParams [] =
makeRangeParams ++
[ makeSelectParam
, makePreferParam ["plurality=singular", "count=none"]
]
makeGetParams cs =
makeRangeParams ++
[ makeSelectParam
, (mempty :: Param)
& name .~ "order"
& description ?~ "Ordering"