diff options
author | John MacFarlane <jgm@berkeley.edu> | 2012-07-25 20:27:20 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2012-07-25 22:05:06 -0700 |
commit | 070b968ae042238c86740c2aea21aacc4f62f618 (patch) | |
tree | 9e2d6ccf2567bb81571e427be886eddc2c290973 /src/Text/Pandoc/Readers | |
parent | 856aa8c244b86a51d4229bf7c5f3799d231570f7 (diff) | |
download | pandoc-070b968ae042238c86740c2aea21aacc4f62f618.tar.gz |
stateCitations -> readerCitations.
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 4f1831baf..f6f23faed 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -1405,8 +1405,8 @@ citeKey = try $ do let internal p = try $ p >>~ lookAhead (letter <|> digit) rest <- many $ letter <|> digit <|> internal (oneOf ":.#$%&-_?<>~") let key = first:rest - st <- getState - guard $ key `elem` stateCitations st + citations' <- getOption readerCitations + guard $ key `elem` citations' return (suppress_author, key) suffix :: Parser [Char] ParserState [Inline] |