on master help sign in
Merge pull request #788 from ivan-m/header-location
a9bc22dOleg Grenrus
servant-docs/src/Servant/Docs/Internal.hs+6−1
@@ -588,7 +588,12 @@ markdown api = unlines $
588
588
589 headersStr :: [Text] -> [String]
589 headersStr :: [Text] -> [String]
590 headersStr [] = []
590 headersStr [] = []
591+ headersStr l =
592+ "#### Headers:" :
593+ "" :
591− headersStr l = [""] ++ map headerStr l ++ [""]
594+ map headerStr l ++
595+ "" :
596+ []
592
597
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."