diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2006-12-09 02:05:23 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2006-12-09 02:05:23 +0000 |
| commit | 6411ea7466f67f94816c541a22abb7249d36c377 (patch) | |
| tree | 16aadf231e383959dbd4e3b4ac86ea7fe556b505 /src | |
| parent | 6536e641288103b9554514d5bd4454b14592ee44 (diff) | |
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')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 5 |
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 "\"" """ -- | 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 |