summaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2013-02-20 13:01:36 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2013-02-20 13:01:50 -0800
commit7a97369d011cdbdac52a2e0df6bcbba078852a57 (patch)
tree3f66f15092d7007321764f84f22ca992b14dc2af /src/Text
parent3f2dd98f455a5a46e8872389650929f5eebe42ee (diff)
LaTeX reader: Don't emit empty paragraph.
See #761.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 6b7fe1829..af912c28e 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -905,10 +905,10 @@ ordered_list = do
paragraph :: LP Blocks
paragraph = do
- x <- mconcat <$> many1 inline
+ x <- trimInlines . mconcat <$> many1 inline
if x == mempty
then return mempty
- else return $ para $ trimInlines x
+ else return $ para x
preamble :: LP Blocks
preamble = mempty <$> manyTill preambleBlock beginDoc