aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-04-30 07:46:38 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-04-30 07:46:38 -0700
commit8201257b5c13f90f14aa529fac1b341fd1a900eb (patch)
tree3efbb91c78758764962ecc5d8da5cf88809f9813 /src/Text/Pandoc
parent8d64109c8058ec3a06ee88aa6f2d7fcbe8de4ff5 (diff)
downloadpandoc-8201257b5c13f90f14aa529fac1b341fd1a900eb.tar.gz
LaTeX writer: Fixed spacing in quote environments.
Closes #502. Previously you'd get: ~~~ hi \begin{quote} hi \end{quote} hi ~~~ Now we get: ~~~ hi \begin{quote} hi \end{quote} hi ~~~
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/LaTeX.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index 923d8361b..b114e4444 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -278,7 +278,8 @@ blockToLaTeX (BlockQuote lst) = do
return result
_ -> do
contents <- blockListToLaTeX lst
- return $ "\\begin{quote}" $$ contents $$ "\\end{quote}"
+ return $ "\\begin{quote}" $$ chomp contents $$ "\\end{quote}"
+ <> blankline
blockToLaTeX (CodeBlock (_,classes,keyvalAttr) str) = do
opts <- gets stOptions
case () of