put intro titles at the same level as the endpoints

This commit is contained in:
Alp Mestanogullari 2015-05-09 16:28:19 +02:00
parent c2211e9534
commit b6f7efe8e2

View file

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