aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers/LaTeX.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-06-03 09:14:09 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-06-03 09:14:09 -0700
commit34fac208d20824b463301f8e2eb4b2a5c31c72ed (patch)
tree2af09d8f14bca18a396388dd618cd38a4e00e667 /src/Text/Pandoc/Writers/LaTeX.hs
parente630c773ae3331e7e1d179d3d77e4be64075248a (diff)
downloadpandoc-34fac208d20824b463301f8e2eb4b2a5c31c72ed.tar.gz
Fixed `--incremental` behavior for Beamer.
When `--incremental` is used, lists inside block quotes should appear all at once (as in HTML).
Diffstat (limited to 'src/Text/Pandoc/Writers/LaTeX.hs')
-rw-r--r--src/Text/Pandoc/Writers/LaTeX.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index 7a4dfc3c4..836ef1b50 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -274,7 +274,7 @@ blockToLaTeX (BlockQuote lst) = do
case lst of
[b] | beamer && isListBlock b -> do
oldIncremental <- gets stIncremental
- modify $ \s -> s{ stIncremental = True }
+ modify $ \s -> s{ stIncremental = not oldIncremental }
result <- blockToLaTeX b
modify $ \s -> s{ stIncremental = oldIncremental }
return result