diff --git a/servant-docs/src/Servant/Docs/Internal.hs b/servant-docs/src/Servant/Docs/Internal.hs index 6f98c208..80067385 100644 --- a/servant-docs/src/Servant/Docs/Internal.hs +++ b/servant-docs/src/Servant/Docs/Internal.hs @@ -588,7 +588,12 @@ markdown api = unlines $ headersStr :: [Text] -> [String] headersStr [] = [] - headersStr l = [""] ++ map headerStr l ++ [""] + headersStr l = + "#### Headers:" : + "" : + map headerStr l ++ + "" : + [] where headerStr hname = "- This endpoint is sensitive to the value of the **" ++ unpack hname ++ "** HTTP header."