diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-09 18:12:18 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-09 18:12:18 -0700 |
| commit | 7fc804ed22b3dad2e7f5c365a1d9a1beceb0c983 (patch) | |
| tree | 7f875a39ce673c0176729b217dfb4e5cb214896a | |
| parent | 204ee87803d75f301a93bf6ac23d664e1d85f672 (diff) | |
Parsing: Generalized type of withQuoteContext.
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index 50691f409..d677f7a16 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -811,8 +811,8 @@ quoted :: Parser [Char] ParserState Inline quoted inlineParser = doubleQuoted inlineParser <|> singleQuoted inlineParser withQuoteContext :: QuoteContext - -> Parser [Char] ParserState a - -> Parser [Char] ParserState a + -> Parser [tok] ParserState a + -> Parser [tok] ParserState a withQuoteContext context parser = do oldState <- getState let oldQuoteContext = stateQuoteContext oldState |