From eaa41a677a59fe6d245c6d8a64843230d6653e73 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 17 Dec 2011 23:52:59 -0800 Subject: Fixed line breaks in tds in table cells. --- src/Text/Pandoc/Writers/HTML.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index f045a429c..73d92225d 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -508,7 +508,7 @@ tableItemToHtml opts tag' align' item = do let attribs = if writerHtml5 opts then A.style (toValue $ "text-align: " ++ alignStr ++ ";") else A4.align (toValue alignStr) - return $ tag' ! attribs $ contents >> nl opts + return $ (tag' ! attribs $ contents) >> nl opts toListItems :: WriterOptions -> [Html] -> [Html] toListItems opts items = map (toListItem opts) items ++ [nl opts] -- cgit v1.2.3