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

Changed to adding a Headers header

Browse Source 
As per request by @phadej
This commit is contained in:
Ivan Lazar Miljenovic 2017-07-31 10:56:01 +10:00
parent 7221368cdd
commit a2c6ef773d
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
servant-docs/src/Servant/Docs/Internal.hs
View File

@ -525,10 +525,10 @@ markdown api = unlines $
printEndpoint endpoint action =
str :
"" :
headersStr (action ^. headers) ++
notesStr (action ^. notes) ++
authStr (action ^. authInfo) ++
capturesStr (action ^. captures) ++
headersStr (action ^. headers) ++
paramsStr (action ^. params) ++
rqbodyStr (action ^. rqtypes) (action ^. rqbody) ++
responseStr (action ^. response) ++
@ -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."