diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-17 23:52:59 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-17 23:52:59 -0800 |
| commit | eaa41a677a59fe6d245c6d8a64843230d6653e73 (patch) | |
| tree | 35b5a4e504a87cc52228bcc2a39ae282a7124f0b /src | |
| parent | 89c962a18cb354ead249dab3d45e09e3bf9de84e (diff) | |
| download | pandoc-eaa41a677a59fe6d245c6d8a64843230d6653e73.tar.gz | |
Fixed line breaks in tds in table cells.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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] |