From 6411ea7466f67f94816c541a22abb7249d36c377 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sat, 9 Dec 2006 02:05:23 +0000
Subject: 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
---
 src/Text/Pandoc/Writers/HTML.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'src/Text/Pandoc')

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 
-- 
cgit v1.2.3