Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Parsing: Generalized type of withQuoteContext.

Browse source
This commit is contained in:
John MacFarlane 2012-09-09 18:12:18 -07:00
parent 204ee87803
commit 7fc804ed22
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Parsing.hs
View file

@ -811,8 +811,8 @@ quoted :: Parser [Char] ParserState Inline
quoted inlineParser = doubleQuoted inlineParser <|> singleQuoted inlineParser quoted inlineParser = doubleQuoted inlineParser <|> singleQuoted inlineParser
withQuoteContext :: QuoteContext withQuoteContext :: QuoteContext
-> Parser [Char] ParserState a -> Parser [tok] ParserState a
-> Parser [Char] ParserState a -> Parser [tok] ParserState a
withQuoteContext context parser = do withQuoteContext context parser = do
oldState <- getState oldState <- getState
let oldQuoteContext = stateQuoteContext oldState let oldQuoteContext = stateQuoteContext oldState