@@ -529,14 +529,16 @@ markdown api = unlines $
529529 authStr (action ^. authInfo) ++
530530 capturesStr (action ^. captures) ++
531531 headersStr (action ^. headers) ++
532− paramsStr (action ^. params) ++
532+ paramsStr meth (action ^. params) ++
533533 rqbodyStr (action ^. rqtypes) (action ^. rqbody) ++
534534 responseStr (action ^. response) ++
535535 []
536536
537− where str = "## " ++ BSC.unpack (endpoint^.method)
537+ where str = "## " ++ BSC.unpack meth
538538 ++ " " ++ showPath (endpoint^.path)
539539
540+ meth = endpoint ^. method
541+
540542 introsStr :: [DocIntro] -> [String]
541543 introsStr = concatMap introStr
542544
@@ -593,23 +595,23 @@ markdown api = unlines $
593595 where headerStr hname = "- This endpoint is sensitive to the value of the **"
594596 ++ unpack hname ++ "** HTTP header."
595597
596− paramsStr :: [DocQueryParam] -> [String]
597− paramsStr [] = []
598− paramsStr l =
599− "#### GET Parameters:" :
598+ paramsStr :: HTTP.Method -> [DocQueryParam] -> [String]
599+ paramsStr _ [] = []
600+ paramsStr m l =
601+ ("#### " ++ cs m ++ " Parameters:") :
600602 "" :
601− map paramStr l ++
603+ map (paramStr m) l ++
602604 "" :
603605 []
604606
605− paramStr param = unlines $
607+ paramStr m param = unlines $
606608 ("- " ++ param ^. paramName) :
607609 (if (not (null values) || param ^. paramKind /= Flag)
608610 then [" - **Values**: *" ++ intercalate ", " values ++ "*"]
609611 else []) ++
610612 (" - **Description**: " ++ param ^. paramDesc) :
611613 (if (param ^. paramKind == List)
612− then [" - This parameter is a **list**. All GET parameters with the name "
614+ then [" - This parameter is a **list**. All " ++ cs m ++ " parameters with the name "
613615 ++ param ^. paramName ++ "[] will forward their values in a list to the handler."]
614616 else []) ++
615617 (if (param ^. paramKind == Flag)