aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2006-12-09 02:05:23 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2006-12-09 02:05:23 +0000
commit6411ea7466f67f94816c541a22abb7249d36c377 (patch)
tree16aadf231e383959dbd4e3b4ac86ea7fe556b505 /src/Text/Pandoc/Writers
parent6536e641288103b9554514d5bd4454b14592ee44 (diff)
downloadpandoc-6411ea7466f67f94816c541a22abb7249d36c377.tar.gz
In HTML writer, include <title></title> even if title is null.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@171 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs5
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 6b0696817..f0283dd48 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -90,10 +90,7 @@ attributeStringToHtml = gsub "\"" "&quot;"
-- | Returns an HTML header with appropriate bibliographic information.
htmlHeader :: WriterOptions -> Meta -> String
htmlHeader options (Meta title authors date) =
- let titletext = if (null title) then
- ""
- else
- "<title>" ++ (inlineListToHtml options title) ++ "</title>\n"
+ let titletext = "<title>" ++ (inlineListToHtml options title) ++ "</title>\n"
authortext = if (null authors) then
""
else