HTML writer: don't include empty UL if --toc but no sections.

Resolves Issue #199.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1799 788f1e2b-df1e-0410-8736-df70ead52e1b

src/Text/Pandoc/Writers/HTML.hs

@@ -160,7 +160,11 @@ tableOfContents _ [] = return noHtml
 tableOfContents opts sects = do
   let opts'        = opts { writerIgnoreNotes = True }
   contents  <- mapM (elementToListItem opts') sects
-  return $ thediv ! [prefixedId opts' "TOC"] $ unordList $ catMaybes contents
+  let tocList = catMaybes contents
+  return $ thediv ! [prefixedId opts' "TOC"] $
+            if null tocList
+               then noHtml
+               else unordList tocList
 
 -- | Convert section number to string
 showSecNum :: [Int] -> String