From 8fd3d0bdbbd8ba8c681c72a401c517797c2ecd0e Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 19 Jul 2011 16:25:01 -0700
Subject: LaTeX writer: make verbatim environments flush to avoid extra space.

The indented `\end{verbatim}` was causing an extra blank line in
the output.

Closes #277.
---
 src/Text/Pandoc/Writers/LaTeX.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc/Writers/LaTeX.hs')

diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index f3d7af7e5..ea3d471fe 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -216,8 +216,9 @@ blockToLaTeX (CodeBlock (_,classes,keyvalAttr) str) = do
           | null params = empty
           | otherwise   = "[" <> hsep (intersperse "," (map text params)) <>
                           "]"
-  return $ "\\begin{" <> text env <> "}" <> printParams $$ flush (text str) $$
-           "\\end{" <> text env <> "}" $$ cr   -- final cr needed because of footnotes
+  return $ flush ("\\begin{" <> text env <> "}" <> printParams $$ text str $$
+           "\\end{" <> text env <> "}") $$ cr
+           -- final cr needed because of footnotes
 blockToLaTeX (RawBlock "latex" x) = return $ text x <> blankline
 blockToLaTeX (RawBlock _ _) = return empty
 blockToLaTeX (BulletList lst) = do
-- 
cgit v1.2.3