eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Merge pull request #788 from ivan-m/header-location

Browse source 
Move location of header information
This commit is contained in:
Oleg Grenrus 2017-07-31 11:40:41 +03:00 committed by GitHub
commit a9bc22d5c9
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
servant-docs/src/Servant/Docs/Internal.hs
View file

@ -588,7 +588,12 @@ markdown api = unlines $
headersStr :: [Text] -> [String] headersStr :: [Text] -> [String]
headersStr [] = [] headersStr [] = []
headersStr l = [""] ++ map headerStr l ++ [""] headersStr l =
"#### Headers:" :
"" :
map headerStr l ++
"" :
[]
where headerStr hname = "- This endpoint is sensitive to the value of the **" where headerStr hname = "- This endpoint is sensitive to the value of the **"
++ unpack hname ++ "** HTTP header." ++ unpack hname ++ "** HTTP header."