@@ -93,7 +93,7 @@ plainify = bottomUp go
93pandocTitleBlock :: Doc -> [Doc] -> Doc -> Doc
93pandocTitleBlock :: Doc -> [Doc] -> Doc -> Doc
94pandocTitleBlock tit auths dat =
94pandocTitleBlock tit auths dat =
95 hang 2 (text "% ") tit <> cr <>
95 hang 2 (text "% ") tit <> cr <>
96− hang 2 (text "% ") (hcat (intersperse (text "; ") auths)) <> cr <>
96+ hang 2 (text "% ") (vcat $ map nowrap auths) <> cr <>
97 hang 2 (text "% ") dat <> cr
97 hang 2 (text "% ") dat <> cr
99mmdTitleBlock :: Doc -> [Doc] -> Doc -> Doc
99mmdTitleBlock :: Doc -> [Doc] -> Doc -> Doc