aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-08-29 15:50:51 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-08-29 15:50:51 -0700
commit889254e1d5c7b683b93f623207347a773e25776b (patch)
treebfb311d275282effc0dc18f623aeddd380cb68fe /src/Text/Pandoc
parent85ed24e849975051f370dd8bf98c6c62ca92447a (diff)
downloadpandoc-889254e1d5c7b683b93f623207347a773e25776b.tar.gz
LaTeX reader: fixed parsing of \texorpdfstring.
We were returning the wrong argument as the content.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 56f14752a..9fcaa2b09 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -1690,7 +1690,7 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList
, ("(", mathInline . toksToString <$> manyTill anyTok (controlSeq ")"))
, ("[", mathDisplay . toksToString <$> manyTill anyTok (controlSeq "]"))
, ("ensuremath", mathInline . toksToString <$> braced)
- , ("texorpdfstring", (\_ x -> x) <$> tok <*> tok)
+ , ("texorpdfstring", (\x _ -> x) <$> tok <*> tok)
, ("P", lit "¶")
, ("S", lit "§")
, ("$", lit "$")