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