@@ -495,7 +495,7 @@ markdown api = unlines $
496 introStr :: DocIntro -> [String]
496 introStr :: DocIntro -> [String]
497 introStr i =
497 introStr i =
498− ("#### " ++ i ^. introTitle) :
498+ ("## " ++ i ^. introTitle) :
500 intersperse "" (i ^. introBody) ++
500 intersperse "" (i ^. introBody) ++