diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index a2c7ac34f..480c97356 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -1276,7 +1276,7 @@ inlineToLaTeX (Note contents) = do -- or the closing delimiter gets swallowed. handleMathComment :: String -> String handleMathComment s = - let (xs, ys) = break (\c -> c == '\n' || c == '%') $ reverse s + let (_, ys) = break (\c -> c == '\n' || c == '%') $ reverse s in case ys of '%':'\\':_ -> s '%':_ -> s ++ "\n" |