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

Use 3rd-level headings

Browse source 
For some reason, 2nd-level headings are used for introductions and for
each API endpoint, but then it immediately jumps to 4th-level
headings.

Instead, promote everything that's 4th-level to 3rd-level.
This commit is contained in:
Ivan Lazar Miljenovic 2017-10-11 10:48:22 +11:00
parent f960d97256
commit 9d10fe13dd
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -619,7 +619,7 @@ markdownWith RenderingOptions{..} api = unlines $
noteStr :: DocNote -> [String]
noteStr nt =
("#### " ++ nt ^. noteTitle) :
("### " ++ nt ^. noteTitle) :
"" :
intersperse "" (nt ^. noteBody) ++
"" :
@ -631,7 +631,7 @@ markdownWith RenderingOptions{..} api = unlines $
authStr auths =
let authIntros = mapped %~ view authIntro $ auths
clientInfos = mapped %~ view authDataRequired $ auths
in "#### Authentication":
in "### Authentication":
"":
unlines authIntros :
"":
@ -643,7 +643,7 @@ markdownWith RenderingOptions{..} api = unlines $
capturesStr :: [DocCapture] -> [String]
capturesStr [] = []
capturesStr l =
"#### Captures:" :
"### Captures:" :
"" :
map captureStr l ++
"" :
@ -655,7 +655,7 @@ markdownWith RenderingOptions{..} api = unlines $
headersStr :: [Text] -> [String]
headersStr [] = []
headersStr l =
"#### Headers:" :
"### Headers:" :
"" :
map headerStr l ++
"" :
@ -667,7 +667,7 @@ markdownWith RenderingOptions{..} api = unlines $
paramsStr :: HTTP.Method -> [DocQueryParam] -> [String]
paramsStr _ [] = []
paramsStr m l =
("#### " ++ cs m ++ " Parameters:") :
("### " ++ cs m ++ " Parameters:") :
"" :
map (paramStr m) l ++
"" :
@ -693,7 +693,7 @@ markdownWith RenderingOptions{..} api = unlines $
rqbodyStr :: [M.MediaType] -> [(Text, M.MediaType, ByteString)]-> [String]
rqbodyStr [] [] = []
rqbodyStr types s =
["#### Request:", ""]
["### Request:", ""]
<> formatTypes types
<> formatBodies _requestExamples s
@ -749,7 +749,7 @@ markdownWith RenderingOptions{..} api = unlines $
responseStr :: Response -> [String]
responseStr resp =
"#### Response:" :
"### Response:" :
"" :
("- Status code " ++ show (resp ^. respStatus)) :
("- Headers: " ++ show (resp ^. respHeaders)) :