git.iko.soy/servant
on master help sign in
Use 3rd-level headings
9d10fe1Ivan Lazar Miljenovic
servant-docs/src/Servant/Docs/Internal.hs+7−7
compare with master
unifiedsplit
@@ -619,7 +619,7 @@ markdownWith RenderingOptions{..} api = unlines $
619
619
620 noteStr :: DocNote -> [String]
620 noteStr :: DocNote -> [String]
621 noteStr nt =
621 noteStr nt =
622− ("#### " ++ nt ^. noteTitle) :
622+ ("### " ++ nt ^. noteTitle) :
623 "" :
623 "" :
624 intersperse "" (nt ^. noteBody) ++
624 intersperse "" (nt ^. noteBody) ++
625 "" :
625 "" :
@@ -631,7 +631,7 @@ markdownWith RenderingOptions{..} api = unlines $
631 authStr auths =
631 authStr auths =
632 let authIntros = mapped %~ view authIntro $ auths
632 let authIntros = mapped %~ view authIntro $ auths
633 clientInfos = mapped %~ view authDataRequired $ auths
633 clientInfos = mapped %~ view authDataRequired $ auths
634− in "#### Authentication":
634+ in "### Authentication":
635 "":
635 "":
636 unlines authIntros :
636 unlines authIntros :
637 "":
637 "":
@@ -643,7 +643,7 @@ markdownWith RenderingOptions{..} api = unlines $
643 capturesStr :: [DocCapture] -> [String]
643 capturesStr :: [DocCapture] -> [String]
644 capturesStr [] = []
644 capturesStr [] = []
645 capturesStr l =
645 capturesStr l =
646− "#### Captures:" :
646+ "### Captures:" :
647 "" :
647 "" :
648 map captureStr l ++
648 map captureStr l ++
649 "" :
649 "" :
@@ -655,7 +655,7 @@ markdownWith RenderingOptions{..} api = unlines $
655 headersStr :: [Text] -> [String]
655 headersStr :: [Text] -> [String]
656 headersStr [] = []
656 headersStr [] = []
657 headersStr l =
657 headersStr l =
658− "#### Headers:" :
658+ "### Headers:" :
659 "" :
659 "" :
660 map headerStr l ++
660 map headerStr l ++
661 "" :
661 "" :
@@ -667,7 +667,7 @@ markdownWith RenderingOptions{..} api = unlines $
667 paramsStr :: HTTP.Method -> [DocQueryParam] -> [String]
667 paramsStr :: HTTP.Method -> [DocQueryParam] -> [String]
668 paramsStr _ [] = []
668 paramsStr _ [] = []
669 paramsStr m l =
669 paramsStr m l =
670− ("#### " ++ cs m ++ " Parameters:") :
670+ ("### " ++ cs m ++ " Parameters:") :
671 "" :
671 "" :
672 map (paramStr m) l ++
672 map (paramStr m) l ++
673 "" :
673 "" :
@@ -693,7 +693,7 @@ markdownWith RenderingOptions{..} api = unlines $
693 rqbodyStr :: [M.MediaType] -> [(Text, M.MediaType, ByteString)]-> [String]
693 rqbodyStr :: [M.MediaType] -> [(Text, M.MediaType, ByteString)]-> [String]
694 rqbodyStr [] [] = []
694 rqbodyStr [] [] = []
695 rqbodyStr types s =
695 rqbodyStr types s =
696− ["#### Request:", ""]
696+ ["### Request:", ""]
697 <> formatTypes types
697 <> formatTypes types
698 <> formatBodies _requestExamples s
698 <> formatBodies _requestExamples s
699
699
@@ -749,7 +749,7 @@ markdownWith RenderingOptions{..} api = unlines $
749
749
750 responseStr :: Response -> [String]
750 responseStr :: Response -> [String]
751 responseStr resp =
751 responseStr resp =
752− "#### Response:" :
752+ "### Response:" :
753 "" :
753 "" :
754 ("- Status code " ++ show (resp ^. respStatus)) :
754 ("- Status code " ++ show (resp ^. respStatus)) :
755 ("- Headers: " ++ show (resp ^. respHeaders)) :
755 ("- Headers: " ++ show (resp ^. respHeaders)) :