git.iko.soy/typeable/pandoc
on master help sign in
Fixed line breaks in tds in table cells.
eaa41a6John MacFarlane
src/Text/Pandoc/Writers/HTML.hs+1−1
compare with master
unifiedsplit
@@ -508,7 +508,7 @@ tableItemToHtml opts tag' align' item = do
508 let attribs = if writerHtml5 opts
508 let attribs = if writerHtml5 opts
509 then A.style (toValue $ "text-align: " ++ alignStr ++ ";")
509 then A.style (toValue $ "text-align: " ++ alignStr ++ ";")
510 else A4.align (toValue alignStr)
510 else A4.align (toValue alignStr)
511− return $ tag' ! attribs $ contents >> nl opts
511+ return $ (tag' ! attribs $ contents) >> nl opts
512
512
513toListItems :: WriterOptions -> [Html] -> [Html]
513toListItems :: WriterOptions -> [Html] -> [Html]
514toListItems opts items = map (toListItem opts) items ++ [nl opts]
514toListItems opts items = map (toListItem opts) items ++ [nl opts]