aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-02-17 23:06:54 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2018-02-17 23:06:54 -0800
commit377640402f32e8189fc88e54515c397ce48cc916 (patch)
tree806397826bed907a5d9e290dfecac1906549f94f /src/Text/Pandoc
parent3535af019722fc5086e968cc485ab8b94b76f1fd (diff)
downloadpandoc-377640402f32e8189fc88e54515c397ce48cc916.tar.gz
LaTeX reader: Fixed comments inside citations. Closes #4374.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 1ce3d18e5..cb70b6403 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -1074,12 +1074,12 @@ simpleCiteArgs = try $ do
citationLabel :: PandocMonad m => LP m String
citationLabel = do
- optional sp
+ optional spaces
toksToString <$>
(many1 (satisfyTok isWordTok <|> symbolIn bibtexKeyChar)
- <* optional sp
+ <* optional spaces
<* optional (symbol ',')
- <* optional sp)
+ <* optional spaces)
where bibtexKeyChar = ".:;?!`'()/*@_+=-[]" :: [Char]
cites :: PandocMonad m => CitationMode -> Bool -> LP m [Citation]