Fixed line breaks in tds in table cells.
commiteaa41a677a59fe6d245c6d8a64843230d6653e73
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateSat 17 Dec 2011, 23:52 (15 years ago)
parent89c962a
src/Text/Pandoc/Writers/HTML.hs+1−1
@@ -508,7 +508,7 @@ tableItemToHtml opts tag' align' item = do
508508 let attribs = if writerHtml5 opts
509509 then A.style (toValue $ "text-align: " ++ alignStr ++ ";")
510510 else A4.align (toValue alignStr)
511− return $ tag' ! attribs $ contents >> nl opts
511+ return $ (tag' ! attribs $ contents) >> nl opts
512512
513513toListItems :: WriterOptions -> [Html] -> [Html]
514514toListItems opts items = map (toListItem opts) items ++ [nl opts]