@@ -71,8 +71,10 @@ writeHtml opts (Pandoc (Meta tit authors date) blocks) =
71 let titlePrefix = writerTitlePrefix opts
71 let titlePrefix = writerTitlePrefix opts
72 topTitle = evalState (inlineListToHtml opts tit) defaultWriterState
72 topTitle = evalState (inlineListToHtml opts tit) defaultWriterState
73 topTitle' = if null titlePrefix
73 topTitle' = if null titlePrefix
74− then topTitle
74+ then topTitle
76+ then stringToHtml titlePrefix
75− else titlePrefix +++ " - " +++ topTitle
77+ else titlePrefix +++ " - " +++ topTitle
76 metadata = thetitle topTitle' +++
78 metadata = thetitle topTitle' +++
77 meta ! [httpequiv "Content-Type",
79 meta ! [httpequiv "Content-Type",
78 content "text/html; charset=UTF-8"] +++
80 content "text/html; charset=UTF-8"] +++