@@ -525,10 +525,10 @@ markdown api = unlines $
525 printEndpoint endpoint action =
525 printEndpoint endpoint action =
528− headersStr (action ^. headers) ++
529 notesStr (action ^. notes) ++
528 notesStr (action ^. notes) ++
530 authStr (action ^. authInfo) ++
529 authStr (action ^. authInfo) ++
531 capturesStr (action ^. captures) ++
530 capturesStr (action ^. captures) ++
531+ headersStr (action ^. headers) ++
532 paramsStr (action ^. params) ++
532 paramsStr (action ^. params) ++
533 rqbodyStr (action ^. rqtypes) (action ^. rqbody) ++
533 rqbodyStr (action ^. rqtypes) (action ^. rqbody) ++
534 responseStr (action ^. response) ++
534 responseStr (action ^. response) ++
@@ -588,7 +588,12 @@ markdown api = unlines $
589 headersStr :: [Text] -> [String]
589 headersStr :: [Text] -> [String]
590 headersStr [] = []
590 headersStr [] = []
591− headersStr l = [""] ++ map headerStr l ++ [""]
594+ map headerStr l ++
593 where headerStr hname = "- This endpoint is sensitive to the value of the **"
598 where headerStr hname = "- This endpoint is sensitive to the value of the **"
594 ++ unpack hname ++ "** HTTP header."
599 ++ unpack hname ++ "** HTTP header."