diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-11-01 13:38:20 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-11-01 13:38:24 +0300 |
| commit | 5cffd6bc77896baf8a1a62fe6110cd90cf38a6b9 (patch) | |
| tree | 574c19f337c008809d8c36c8b7e150a774309bdb /src/Text | |
| parent | 512732db7b1a5be9a84c6d9d52ece77fb7339cae (diff) | |
| download | pandoc-5cffd6bc77896baf8a1a62fe6110cd90cf38a6b9.tar.gz | |
LaTeX writer: remove unused local bind
Diffstat (limited to 'src/Text')
| -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" |